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ABSTRACT 

In the scheme of an integrated decision support system, 
model management holds a position comparable with data 
management. Unfortunately, the development and formalizing 
of model management techniques historically have lagged far 
behind data management concepts, although the increased 
interest in spreadsheets has rekindled an interest in models 
as productivity enhancing tools. Model management systems 
offer one way of integrating models into the overall struc- 
ture of an organizational information resource library. This 
thesis proposes the design and implementation of a visual 
interface to one such model management system, based on A. M. 
Geoffrion’s structured modeling paradigm. OGEgGeals 1s to 
provide the user with a natural, easy-to-use interface that 
is, at the same time, powerful enough to extract the full 


potential from a model management system. 
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Woe Te henuc lr LON 


The wheel is an extension of the foot, the book is 
an extension of the eye, clothing, an extension of 
Picmckin,welbeCEriCc Circuitry, an extension of the 
central nervous system. 
Marshall McLuhan and Quentin Fiore 
The Medium is the Message (1967) 

We could easily continue that the computer interface is 
an extension of the user. To the user, the interface is the 
program. It is the single direct link that connects him with 
his application. Regardless of how elaborate the algorithms, 
how elegant the coding, or how efficient the execution, a 
poorly designed interface severely detracts from a program’s 
usefulness. At best, the program will be used reluctantly; 
at worst, it will not be used at all. How the user converses 
and interacts with the program becomes a prime measure of its 
effectiveness. 

The quality of a program’s interface must be a consid- 
eration from the beginning to the end of the design process. 
If a designer fails to take people into account, then his 
product--be it hardware or software--may well be difficult or 


impossible to use. As Simpson [Ref. 1] says, human factors? 


1 Human factors is a small but growing discipline which 
seeks to provide a method for taking into account human 
strengths and limitations during the design of computer 


hardware and software [Ref. 1, p. 108]. Historically, human 
factors has dealt with the physical relationships between man 
and machine. The development of software pushes’ even 


ip 


matter because it is people who must operate the machines 


[and software] that we produce. Man and machine must work 
together interactively. The "system" is a combination of 
Jexonz)at « 


Of course, the significance of the user interface varies 
from application to application. Obviously, the development 
of any interface represents an expenditure of valuable 
resources. How much of the available resources one can 
afford to devote to the interface becomes a legitimate 
question. Too little and the interface is inadequate. Too 
much and it becomes an unnecessary aggrandizement. The 
designer must strive to match the resources expended in 
developing the interface with the significance. of that 
interface to the application. Simpson [Ref. 1] offers four 
factors that can provide a measure of the importance of 
man/machine interaction to software (and concomitantly, 
interface) design: 

(1) the number of people operating the program, 
(2) the diversity of the operators’ backgrounds, 
(3) the complexity of the program, and 

(4) the consequences of operator error. 

As these factors increase, so should the resources 
devoted to the development of the user interface. As 
further--moving into the realm of cognition and touching on 
exactly how mankind thinks. Because of this cognitive 
distinction, some researchers prefer to separate the theories 


of human/computer interaction from the more Wtradve vem 
concepts of human factors. 


critical as the interface may be to general software design, 
an evaluation of the above factors clearly shows that the 
development of an appropriate user interface assumes added 
Significance in the creation of a highly interactive model 
management system. 

History shows that model-based assistance is used all too 
infrequently by managers and policy-makers. Often this is 
the case because available modeling systems are incompre- 
hensible to nonspecialists in management science/operations 
research (MS/OR) {[Ref.2, p.1]. Managers may feel overly 
dependent on these MS/OR practitioners who more fully 
understand the underlying concepts of modeling systems. They 
see this as an erosion of their power. Managers avoid this 
dependency by avoiding the very modeling systems that could 
enhance their decision-making capabilities. Modern user 
interfaces that make the use of modeling systems more 
intuitive and easier to learn can lead to improved acceptance 
of the systems themselves. In fact, they may even be a 
Peerequisite for it [Ref. 3, pp. 548-550]. 

By providing an interface to the modeling environment 
that 1S intuitive to the user, he will more likely accept 
modeling as a powerful, working tool rather than shying away 
from it as “something better left to those technical types." 
This thesis proposes one such design. Our goal is to provide 


the user with a natural, easy-to-use interface that is, at 


the same time, powerful enough to extract the full potentzal 
from a model management system. 

Sections II and III provide a brief overview of both 
model management and structured modeling, concentrating on 
those aspects which bear most directly on the user interface. 
Readers are encouraged to review the specific articles cited 
in these sections for a more complete treatment of these 
subjects. Section IV introduces a broad specification Gia 
visual interface concept, touching on various aspects of 
interface design and interactive computer graphics. Section 
V provides specifications and design goals of a particular 
interface, called INTUITION. Section VI describes the 
prototyping of INTUIT@@NSin an IBM PC Mepe- environment and 
discusses problems encountered during the design and imple- 
mentation phases. Finally, Section VII concludes (yan 
recommendations for future enhancements to this particular 


program, as well as proposals for additional research. 


ee ole, MANAGEMENT 


Data has long been recognized aS a corporate resource to 
be managed and controlled. Models, too, provide managers 
with a resource--a decision aid--which, if properly used, can 
produce a competitive advantage. On the other hand, if used 
improperly, these same models can lead to disaster. 

In the scheme of an integrated decision support system, 
model management holds a position comparable with data 
management. Unfortunately, while considerable effort, and 
consequently considerable progress, has been made in devel- 
oping and formalizing data management concepts, model 
management techniques have lagged far behind. [Ref. 2, p.1] 

As a result, many organizations have been reluctant in 
the past to totally embrace model management as a viable 
information resource. This reluctance has recently diminished 
with the sky-rocketing popularity of simple modeling devices 
een aS LOTUS 123. These spreadsheets have clearly brought 
home the unique potential of modeling as an aid to decision- 
making. But this very popularity, while raising the concept 
of modeling to the forefront, has come as a two-edged sword. 
That increased productivity may be gained from effective 
modeling is a generally accepted premise. And, since 
productivity determines the relative well-being of an 
Organization, modeling as a tool that increases productivity 
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is welcomed. On the other hand, the informal) voueem 
unstructured, and sometimes unintelligible approach to 
modeling inherent in the current state of the art, as often 
as not, overwhelms management. The entire situation ime 
compounded by the management and control problems resulting 
from the proliferation of spreadsheet models. Model manage- 
ment systems offer some hope of overcoming these obstacles. 
[Ref. 4] 
What 1S a model management system? As defined by Dolk 

and Konsynski in the previous reference, 

The MMS [model management system] is to models what the 

DBMS [data base management system] 1S to data, 1.e., a 

software system which provides for the creation, manipu- 

lation, and access of models. 
The key here is "models." Management science and operations 
research (MS/OR) models are particularly relevant in imposing 
structure on the decision-making process. Gorry and Krumland 
[Ref. 5, p. 206] refer to the English Platonist Weldon who 
suggested that there are troubles which we do not quite know 
how to handle; there are puzzles whose clear conditions and 
unique solutions are marvelously elegant; and then there are 
problems which we invent by finding an appropriate puzzle 
form to impose upon a trouble. To Gorry and Krumland, MS/OR 
models are the puzzles imposed on managerial decision-making 
to solve problems, i.e., to make decisions. The authors 


continue that the problem(s) in question often fares 


dictate the use of any particular model. We may find the 


same problem solved in different situations through the use 
of decidedly different modeling techniques. 

In this respect, an MMS allows a decision-maker to access 
a collection of several different models or modeling tech- 
Memes, but to do sO im a consistent and standard way. 
Moreover, these models, in the form of an MMS, can be 
incorporated more readily into an integrated information 
resource management (IRM) environment, where they can operate 
in concert with a database management system. 

Figure 1 depicts one possible MMS, organized along the 
[Mines of a typical DBMS. Readers are referred to Dolk and 


Konsynski [Ref. 4] for a more complete discussion of model 


management, in general, and Figure 1, in particular. A brief 
synopsis follows. Three groups of people are involved in the 
creation, management, and use of an MMS. The raison d’etre 


of an MMS is to allow a decision-maker ultimately to solve 


problems, typically via a model manipulation language of some 


sort. Just as a DBMS needs to be managed to be effective, an 
MMS requires equivalent management. This is vested in the 
model administrator/model bank administrator. in rack, 


Figure 1 envisions the MA/MBA operating within an information 
resource management (IRM) environment where model management 
and data management coexist as sibling functions. These two 
functions then share a dictionary/ directory system that is 
more broadly (and appropriately) called an information 


resource encyclopedia (IRE) to denote a wider array of 
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Figure 1: The Components of an MMS 
from Dolk and Konsynski Reta aoe 


knowledge about a subject--knowledge above and beyond simple 
definitions. it CU terovs Ene semantics and structural 
declarations for both data and models. 

Central to the MMS is the model control system (MCS) 
which manages the physical-level access, storage, and 
retrieval protocols. The solution library is unique to a MMS 
and consists of the algorithms necessary for problem solving. 

Thus far, we have neglected the left branch of Figure 1, 
the model-builder. Obviously, the solution library is of no 
use unless it has something on which and with which "to 
operate." To this end, the model-builder constructs the 


model banks and databases which hold the necessary equations 


and data for the solver to use. He does this through a model 
description language (MDL). It is this concept of an MDL 
that is of immediate concern to this thesis. How does the 


idea, the actual notion, of a model move from man to machine? 

Dolk and Konsynski [Ref. 4, p. 43] state emphatically, 
Critical to the success of an MMS is a model description 
language (MDL) which allows users to specify models in a 
uniform fashion independent of any particular physical 
implementation....The key advantage of an MDL is that it 
allows the user to concentrate on model description without 
worrying about how the model gets solved. 

In this same article, the authors suggest, as a logical 
enoice, an algebraic language which facilitates the 
description of a wide range of mathematical models. This 
thesis pursues an alternative route--the use of a graphics- 
based, rather than text-oriented, interface. This requires 


the adoption of a modeling approach that is: 


5) 


(1) inherently visual in nature, yet can be adequately 
described ina text-oriented database, and 


(2) of sufficient generality to be applicable §acqua 
diverse disciplines and varied modeling paradigms. 


Structured modeling, developed by A. M. Geoffrion, provides 


exactly this modeling framework. 
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Mii olReeltURED MODELING 


Structured model theory, as described by Geoffrion [Ref. 
Pymep.24/-568), provides a Structured framework, on par with 
relational database theory, within which model management 
requirements can be defined and implemented. 

Structured modeling aims to provide the foundation for a 
new generation of modeling systems....It also aims. to 
influence how model-based work 1S carried out using more 
conventional modeling systems [Ref. 3, p.550]. 

Whereas previous efforts at developing model management 
systems have tended to be application specific, Geoffrion’s 
approach is sufficiently general to cross application 
boundaries. Development of a formalized system around such a 
paradigm should go a long way in ameliorating the fears and 
trepidations of management and in advancing the acceptance of 
model management techniques as standard operating procedures. 

Central to the concept of structured modeling is a system 
of elemental definitions which, in the aggregate, comprise a 
model. These elements consist of five separate types-- 
primitive entities, compound entities, attributes, functions, 
and test elements. 

(1) A primitive entity element is mathematically unde- 
fined. It simply asserts the existence of some thing 
or concept (e.g., a plant or customer in a transpor- 


tation system). Every model must contain at least one 
primitive entity. 


bk 


(2) A compound entity element represents things or con- 
cepts which are defined in terms of previously defined 
primitive entities and/or other compound entities 
(e.g., a link in a transportation system consists of a 
combination of a certain plant and a certain cus- 
tomer) . 


(3) An attribute element represents properties of things 
or concepts and is characterized by having a ConsStames 
though not necessarily numeric, value within a 
Specified range (e.g., the supply Capacity Of auaeams 
or the demand of a customer in a transportation 
system). A variant of the attribute element, called 
a variable attribute element, differs by having a non- 
constant value (e.g., the transportation flow between 
links within a transportation systema 


(4) A function element is very similar to the mathematical 
concept of a function in that it has a unique value 
within a specified range that is derived by applying 
a specific rule to the values of other "called" 
elements (e.g., the total cost associated with all 
flows in a transportation system). 


(5) A test element 1s simply a special case of the 
function element. Test elements must evaluate to 
"TRUE" or "FALSE™ and thus provide the capabilityvaies 
perform logical tests on other referenced elements 
(e.g., 1s the total flow leaving a plant less than or 
equal to its supply capacity). 





A structured model exists on three levels, each of which 
provides a varying degree of specificity about the model. 
The first two levels are organized as acyclic, attributed 
graphs of distinct elements; the third, hierarchically as a 
rooted tree. 

The base level is the elemental structure. This level 
comprises "...a nonempty, finite, closed, acyclic collecumed 
of elements" [Ref. 6, p. 2-4] which captures the myriad 
detail associated with a specific instance of the model. For 


example, in a particular transportation model, there exist 


eZ 


planeaoein Dallas and Chweago. These plants service customers 
in Pittsburgh, Atlanta, and Cleveland. Associated with these 
plants and customers are specific links, flows, and costs 
that are individually defined in the elemental structure. 

eocle o wemeeaeeugen men definedmen™=the elemental structure 
by what Geoffrion calls a natural familial grouping of ele- 
ments. In simple terms, like elements can be aggregated into 
a single, homogeneous grouping of elements called a genus. 
Each genus must fulfill the requirement of "generic simi- 
larity," that is, each element within the genus must refer to 
and be referenced by elements from exactly the same genera. 
From the previous example, individual plants in Dallas and 
Chicago can be partitioned into the genus, PLANT, while the 
customers in Pittsburgh, Atlanta, and Cleveland would be 
partitioned into a single genus, CUSTOMER. Likewise, the 
various flows, links, and costs would be partitioned into 
genera, one for each type. 

Both the elemental and generic structures are depicted as 
directed, acyclic graphs called element graphs and genus 
graphs, respectively. In each case, nodes represent elements 


"2 


(or genera) and arcs represent "calls of one node by 


another. Perhaps somewhat counter-intuitively, the head node 
of each are 1s said to "call" the respective tail node. 

2 A “call" is a definitional reference of one element or 
genus to another. Calls form calling sequences. These 
calling sequences are "the cross-references among the various 
elements of a model [that] are the central focus of struc- 


tured modeling [Ref.6, p. 2-3]. 


ILS 


Figures 2 and 3 provide the element and genus graphs for a 
typical Hitchcock-Koopmans transportation model. 

The third, and highest level, is the modular structure. 
This 1S a rooted tree whose terminal nodes have a one to one 
correlation with the genera of the corresponding generic 
SEEUCEURe2 Non-terminal nodes are defined as modules, with 
the simplest rooted tree consisting of a single such module-- 
the root module, representing the entire structured model. 

Every possible module structure is not allowed. Valid 
structures must Satisfy the requirement of monotone ordering 
(i1.e., must contain no forward referencing). In other word 
it must be possible to linearly order all genera in the model 
in such a manner that no element in a genus ever calls an 
element in a genus further down the listing. In the vernac- 
ular of structure modeling, such a listing is called a 
modular outline. Valid modular structures are typically 
depicted as modular trees. Figure 4 shows one possible 
modular tree and its associated modular outline for the same 
transportation scenario cited above. 

Both generic and modular structures, in the form of genus 
graphs and modular trees, lend themselves to the graphical 
display "of, internariven: However, Geoffrion has also devel- 
oped an extensive textual notation to fully describe the 
generic and modular structures of a model. Called a model 


schema, it consists of a paragraph for each genus and module 


14 


Produc tion Objective Function Demand 
Constraints Totai Cast Constraints 


>- + 


7 NSE let 
eo Se 
ml ——— or — 


Pt-oduc tian 
Capacities 


PP 


Customers 





Figure 2: Elemental Structure for a 2 X 2 
Transportation Model 
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Figure 3: Generic Structure of Transportation Model 
fecduered from Ren. o,p. 2-4] 
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in the = seruverture, Figure 5 shows the model schema corre- 
sponding to the generic and modular structures given in 


Piguresms sand —4; Briefly, the syntactic rules for a model 


schema are: 


(1) Paragraphs begin with a unique module or genus name. 
Names are capitalized. Module names must begin with 
an ampersand. Genus names must begin with a letter. 
Names of genera containing multiple elements may be 
followed by a specific lower case "index" letter, 
uniquely associated with the genus that introduces it. 


(2) Each paragraph contains an informal interpretation 
part which provides easily readable documentation. Its 


syntax 1S unrestricted; however, Geoffrion recom 
mends that it contain an underlined, capitalized and 
unique key phase which is also capitalized on subse 
quent use. Unless printed ina different font (e.g., 
italics), the interpretation should be introduced by 
some unique character to separate it from the formal 
part of the paragraph definition. Module paragraphs 
consist only of a module name and interpretation part. 
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Figure 4: Modular Structure and @uel anomie. 
Transportation Model from {Ret 3 67p aman 
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sPROD There are some PRODUCTION DATA. 


PLANT: /pe/ There is a list of PLANTS. 
SUPGLANTD /a/ (PLANT : Ae Every PLANT has a 
SUPPLY CAPACITY measured in tons. 


CUST; /pe/ = ‘There is a list of CUSTOMERS. 
DEMCCUST)> /a/ (GUS : A+ Every CUSTOMER has 


a oe DEMAND measured in tons. 


SDIST There are some DISTRIBUTION DATA. 
LINKCPLANT: CUSTpD /ce/ Select (PLANTbcDLAT} 
cover ing {PLANTS, <CUST> §=There are transportation 


1 any =s—— (MOI O +. 22 MiicTowrne 
LINAS NS irom SUN CLAN (U SUITE LUSIUMENS. 


FLULUCLINKipD /va/ {LIMK? : H+ There can be a 
nonnegative transportation FLO Cin tons) over 
each LINK. 


COSTCLINKID /a/ (UNK> Every LINK has a COST 
RATE for use in dollars/ton. 


TOTAL_COSTCOOSTFLOUD /f/ 1 > SUMACCOST * 
FLOM =There is a TOTAL COST associated with 
all FLOUJS. 


Tr rea “wt re eiwrr mwrteom™ 


ee {PLHNI? ; MAHL) <= 
Is the total FLOUJ leaving a PLANT less than 
or a to its SUPPLY CAPACITY? This is called 
the SUPPLY TEST. 


ls the total FLOW arriving at a CUSTOMER exactlu 
equal to its DEMAND? This is called the DEMAND 
es 





SSALES There are some CUSTOMER DATA. 


| TOEMFLOW.)DEMp /t/ USD ; SUMIGLOMID - DBM 


Figure 5: Schema Paragraphs for Transportation Model 


Mod) 


(3) The formal part of each genus paragraph contains the 
essential characteristics of the genus: 


(a) a type indicator (/pe/,/ce/,/a,7/ 74, 7) = ee 
/t/) specifies the element type; 


(b) for all non-/pe/ paragraphs, a generic calling 
sequence (denoted by parentheses) specifies all 
elements which participate in the definition of a 
typical element; 


en) an index set statement (denoted by braces) 
specifies the element population of the genus 
(Omission implies every possible element exists); 


(d) for attribute genus paragraphs; eaesomie state- 
ment (denoted by a colon) defines the allowable 
values for the elements of the genus; and 





(e) for function and test elements, a generic rule 
(denoted by a semi-colon) specifies how element 
values are calculated. 





Geoffrion [Ref. 3, p. 550] predicts the potential for 
wide adoption of structured modeling: 
This kind of definitional system turns out to be widely 
applicable within model-oriented fields such as MS/OR/DSS 
(for finance, logistics, marketing, production, and Gtiem 
application areas), information systems, economics, and 
engineering....structured modeling lays the foundation for 
a unified theory of model aggregation. 
Geoffrion further asserts that such a definitional system is 
applicable to fields of artificial intelligence, database 
management, programming language design, and software 
engineering. It is exactly this generality and capacity for 


cross-fertilization that makes structured modeling so 


attractive as the underpinnings of a model management system. 
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yee eee vy PSOUAL. INTERFACE 


Geoffrion (Ref. 6, p. 3-8] describes the idealized inter- 

face for a full-scale model management system as providing, 
...full-screen, fully interactive, mostly command-driven 
(but with border or hideable menus) access to ae file 
library, which can contain materials pertaining to several 
models or model schemata. 

In view of this description, the question arises, "Why a 
graphics interface?" This can be answered, perhaps somewhat 
Simplistically, yet nonetheless accurately, by the cliche--a 
picture is worth a thousand words. The Apple Macintosh, Sun 
and Apollo workstations, and the forthcoming IBM System 2 
series "Presentation Manager" are adequate proof of the 
acceptance of visual interfaces as productive enhancements to 
computer technology. 

Interactive computer graphics are particularly well 
Suited as a descriptive device for a model management system. 
Peemeocott (Ref. 7, p. 77} remarks, “Interactive computer 
graphics is based on the concept of working with a model 
described by information stored in the computer." Eig 
concept, the interface for a model management system is not 
very different from the typical "paint" program or computer- 


aided design (CAD) program. 


IES) 


Computer graphics 1s equally well suited to the psycho- 
logical and intellectual requirements of a user interface. 
Bennett (Ref. 8, p. 54], in amplifying Foley [Ref. 9] states, 


The payoff [from graphics applications] is high because of 
the bandwidth [capability for rapid interaction with high- 
resolution, directly relevant pictures] of the communi- 
cations channel. 


Bennett continues, 


Graphics offer potential for decision makers who can 
benefit from interaction with computer-generated represen- 
tations but who are repelled by computer-oriented detail. 


Of course, as stated in the introduction, if any (ieee 
face (graphics or otherwise) is to be effective, the needs 
and capabilities of the user must be considered. Simpson 
[Ref. 1] recommends six principles for computer interface 
design: 


(1) Provide feedback. Don’t keep users in the dark. Eve 
user action, whether correct or incorrect, shower 
elicit some response from the program. Ensure that 
feedback is immediate, obvious and placed on the 
screen where the user anticipates it. 


(2) Be consistent. While human beings can tolerate 
ambiguity, it only serves to reduce their effective- 
ness. Notwithstanding Ralph Waldo Emerson’s assertion 
that consistency is the “hobgoblin of Tittle minders 
consistency within software is essential. Establish a 
set of rules and follow them compulsively. Ensure 
that similar functions are performed in a like manner 
throughout the program. This allows the user to learn 
one part of the program and to apply this knowledge to 
other portions, making the program much easier to 
learn and use. 


(3) Minimize human memory demands. Simply put, computers 


have better memories than people. While people do not 
always remember things exactly, computers do. Reduce 
the user’s need to memorize commands and mnemonics 
through the use of displayed menus or other screen 
prompts. Rely on the machine’s memory, not the 
user’s. 
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(4) Keep the program simple. Simplicity must be a 
conscious design goal. Continuously edit and pare 
down the program. Provide those functions that are 
necessary and useful; however, don’t encumber the user 
with unnecessary functions simply because they are 
possible. 


_) liaeehieeenc proguameto the operator’s skill level. 
Evaluate the skill level(s) of expected users and 


design the program to match these skills. For larger, 
more complex programs, this may require a complete 
task analysis to determine what mission a system must 
perform, what functions are involved, and what tasks 
are required to perform these functions. Alter- 
natively, for simpler programs, answers to the 
following questions may suffice: 


(a) What will operators be expected to do? 
(b) What decisions must they make? 
(c) What must they know to make the decisions? 


(d) What skill levels will be required? 


(6) Sustain operator orientation. Don’t allow the user to 
become "lost" in the program with no way out. Provide 


Signposts to tell him where he is and to guide him 
back from whence he came. Provide a consistent way to 
backtrack to a main menu or to an opening screen. 


In summary, Simpson (1982, p.116) reduces these six prin- 
ciples to a single idea, 


...Know the needs of your system users. Recognize that 
they need feedback to avoid confuSion, consistency to ease 
the learning process, minimal Strain on memory capacity, 
Simplicity rather than complexity, demands gauged to their 
skill levels, and constant, clear orientation. 

Simpson addresses two additional areas that have special 
Significance to interface design and are thus worthy of 
mention. These are data entry and screen design. Briefly, 
he offers these recommendations: 


fl ) Wave cee ite a7 


(a) if data are to be entered from a standardized 
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form, then the screen should look similar to the 
forme in use: 


the program should provide a prompt for every 
data  “IMput., including “Yange si masper default 
values and formats, where possible; 


keep input data length to the absolute minimum 
consistent with the data being entered; 


provide feedback by displaying data on the 
screen aS it 1s entered; 


check all data entries for Jerrconm 


when an error 1s detected, alert the user, 
identify the error, and tell the user Howes 
recover; 


place all error messages consistently from 
screen to screen, preferably near the erroneous 
entry; 


allow the user to edit data during the initial 
data entry, after a group of data have been 
entered, and subsequent to the data being 
Stored; and 


provide "fail-safe" entry mechanisms for data 
entry that can cause catastrophic failures, e.g. 
double prompt the uSer prior to deleting a file. 


Screen Design 


(a) 


access screens by paging, not scrolling; 


title all screen displays, preferably centered at 
the top of the screen; 


center screen displays, where possible; 


allocate specific screen areas for each type or 
grouping of information (e.g., prompt Lime, "ema 
messages, mode indicators, etc.) and use these 
areaS consistently; 


distinctly separate each area of the screen with 
mechanisms such as blank rows or columns, lines, 
Or cel on secodingr, 


keep screens simple and uncluttered through the 
use of "white space;" 
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(2) 


follow prevailing conventions--present infor- 
Netto mE aEciemnetemee right, COD to bottom, left 
justify text and right justify numbers aligning 
them on the decimal point; 


display information in a recognizable order--for 
example, alphabetically, numerically, or chrono- 
logically and 


break up long strings of data into independently 
recognizable ie SOS example, showing a 
telephone number as (408) 555-1734 ers much 
Clearer than 4085551234. 
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V. SPECIFICATION AND SYSTEMPVDESTa 


Our purpose is to design and implement a visual interface 
(using established computer interface design principles) for 
a model management system based on Geoffrion’s structured 
modeling approach. This interface will allow the user: 


(1) to interactively enter a graphical representation of a 
structured model and, 


(2) to produce a relational database representation of 
this model, using the information from the grapinue 
view augmented with other information entered by the 
user. 

We will follow a structured approach to software design. 
Software engineering methodologies provide the designer with 
a systematic means of managing and controlling the over- 
whelming number of tasks involved in software development. 
To date, no single methodology has caught and held designers’ 
fancies, although within the Federal Government, the classic 
life cycle or "waterfall" model generally is dictated. 
However, in many sectors, both prototyping and fourth gene- 
ration techniques (4GT) > are gaining favor. 

Prototyping is especially relevant in this instance. In 
fact, the design of a visual interface fulfills all three of 
the criteria given by Pressman [Ref. 10, pp. 148-149], 

3 this term encompasses a wide array of tools that 
allow a developer to specify software characteristics at a 
high level and then have the tool automatically generate 


source code based on these specifications. (Ref. 10, p. 24) 
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eo reeaGe Cliammscances that require the construction of 
a prototype at the beginning of analysis since the model is 
the only means through which requirements can be, effec- 
Bevely derived. ...in general any application that creates 
dynamic visual displays, interacts heavily with a human 
user, or demands algorithms or combinatorial processing 
that must be developed in an evolutionary fashion is a 
candidate for prototyping. 

Our prototype interface will be designed and implemented 
in bit-mapped graphics, uSing a structured programming lan- 
Guage, a Standardized graphics library, and a relational 
database management system. THe wp retotype will ‘support 
monochrome and color (CGA and EGA or equivalent) systems and 
will self-configure to the hardware used. Graphics objects 
will be differentiated by shape and color. 

The screen will consist of five fixed windows--a status 
window, an icon window, a command button window (augmented by 
pop-up menus), a dialog window, and the workspace (drawing) 
window. User inputs, error messages, and system prompts 
appear in the dialog window. The user workspace is a free- 
form drawing area whose size is limited only by available 
memory. The user sees a four-way scrollable window on this 
total workspace, into which he interactively enters genus 
@eapns and/or modular trees directly in pictorial form. 
Commands and node types will be selected from on-screen 
displays, pop-up menus, or on-screen prompts. The user will 
Memes the choice of using a mouse, cursor keys, or function 
keys to select options. 

The interface must be simple, intuitive, and unobtrusive. 


Mmeeshould not distract the user from the task at hand, i.e., 
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getting his model into the computer. ~@t shoulda suppor reser 
those tasks necessary to accomplish the program’s purpose, as 
stated herein. Bells and whistles will be minimized. Just 
because the interface can accomplish a task does not mean 
that it necessarily should. Every function must be justified 
on the basis of increased user productivity. Give the user 
what he needs--nothing more and nothing less. 

The interface must be consistent. Similar functewome 
Should look the same and work the same throughout the 
program. The interface must prompt the user for all data 
entries and must edit all entries. Input must be accepted in 
a consistent place and manner; output will be displayed like- 
wise. 

The interface must be easy to learn and use. It sh@uike 
minimize human memory requirements and the need to reference 
external documentation. It must provide immediate and 
consistent feedback for every user action. Errors ee 
elicit meaningful and helpful error messages (1i.e., what is 
wrong and how to correct it). Finally, the interface must 
provide "signposts" throughout to keep the user oriented and 
to provide an easy means of returning to the starting point. 

The program presupposes that the user understands struc- 
tured modeling concepts, but makes no further assumptions 
regarding the user’s computer experience. It will be highly 


structured and modularized to ease transportability across 
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systems 
Specifi 
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(2) 
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(1) 


(2) 


(3) 


SdmerO = AEG weEnuGure ~extensions tomthe program. 
Galgiy, sat mist allow the user to: 


add genus elements (nodes) or modular subtrees to the 
puceooraph: 


delete genus elements or modular subtrees from the 
Eueeogreapl (oneludimg —all “ares into and out of the 
deleted nodes); 

rename genus elements or modules on the pictograph; 


change the type of genus elements on the pictograph; 


add "calls" (directed arcs) between genus elements and 
modules; 


delete existing "calls" from the pictograph; 


move genus elements, modules, and subtrees to a new 
position on the pictograph and adjust all "calls" and 
Spacing accordingly; and 


convert specified portions of a genus graph to a 
modular subtree and automatically redraw the picto- 
graph correctly. 


the user creates a pictorial representation of the 
the program must transform the genus graph and modular 
re from the pictograph form to an appropriate rela- 
database representation. Specifically, the following 
ns will be supported: 

extract the genus name, genus type, and calling 
sequence from the appropriate genus  pictograph 
(extract module name and monotone ordering only for 
modules) ; 

create a color-coded input screen (based on the 
structured model paragraph syntax) and allow the user 
to enter the index set statement, range statement, 
generic rule, and informal interpretation for a 
particular genus (or the informal interpretation only 


fOr a particular module); 


allow the user to modify all paragraph fields except 
genus name, module name, genus type, and calling 


PE 


(7) 


sequence (in order to maintain data integrity, these 
items can only be modified from the pictograph) ; 


display an appropriate modular outline; 
generate a color-coded, scrollable display of the 
entire model schema based on the appropriate genus and 


module paragraphs; and 


transform the complete model schema into an appro- 
priate relational database representation; 


Save the pictographs and descriptive paragraphs to 
disk for subsequent reloading and editing. 


The following criteria must be validated when accepting 


data entry from the user: 


(1) 


(2) 
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Module Paragraph 


(a) Module names must be unique, capitalized and 
prefixed With an " " 


(bob) The informal interpretation must be identified by 
a unique font or introductory character. 


Genus Pakagrapn 


(a) Genus names must be unique, capitalized and 
begin with an alphabetic character. 


(b) Type indicators must be one of the following 
mnemonics and must be enclosed in back slashes: 
pe, Ce, a, Va, £7 C2 re 


(c) Generic calling sequences apply only to non-/pe/ 
types and must be enclosed in parentheses. 


(d) Element indices must be single, lower-case, 
alphabetic characters and immediately follow the 
elements that they index. 


(e) Index set statements must be enclosed in curly 
braces. 


Geoffrion designates modules with an ampersand; 


however, this character has special meaning within the ORACLE 
Database. 
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ce) 


Range statements apply only to /a/ and /va/ 
types and must be preceded by a colon. 


Generic rules apply only to /f/ and /t/ types and 
must be preceded by a semi-colon. 


The informal interpretation must be identified by 
a unique font or introductory character. 
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VI. DETAILED DESIGN AND IMPLEMENTATION 


The previous section provides preliminary specifications 
for a visual interface. A prototyping methodology will be 
employed to further develop and define these general specifi- 
cations into a system that meets the user’s needs. It ism 
legitimate question at this point to ask why prototyping is 
used rather than the more traditional life cycle model for 
software development. 

The classical life cycle model is patterned after the 
conventional engineering cycle. It calls for a sequential 
series of events that progress systematically from system 
engineering through analysis, design, coding, testing, and 
maintenance. Because the output of one step becomes the 
input to another, this paradigm is frequently called the 
"waterfall" model. [REeE, 10) pp. 2u7] This process satismaes 
the need for an organized methodology that establishes 
appropriate milestones against which to measure progress and 
at which to obtain approval to continue. Unfortunately, it 
also requires the capability to fully and unambiguously 
define all system specifications during the design process. 
When full specification fails, as it so often does, those 
requirements that are omitted or misunderstood become the 
undetected errors that are so costly to correct in later 
stages. 


cre 


Prototyping offers an alternative approach that is 
paaenenularily valuable in “developing functional specifications 
under conditions of uncertainty. Prototyping techniques may 
either be incorporated into traditional life cycle methods 
Or, in certain circumstances, may replace the traditional 
model entirely. In either case, the key to prototyping is 
its iterative nature. The classical model presents the user 
with reams of text-based specifications and/or reams of 
diagrammatic representations of those same paper specifi- 
cations for the entire system. The user cannot possibly 
determine if the proposed system meets his needs--especially 
Since he very likely doesn’t yet know exactly what his 
requirements truly are. A prototype, on the other hand, 
attempts to present the user with a realistic view of the 
eventual system based on what he does currently know about 
his requirements. This view is then iteratively refined, as 
uncertainty is reduced, to produce a software product that 
ultimately reflects the user’s true needs. The user is 
provided with a "specification" that he can experience 
mueeectiy. [Ref. 11, pp. 178-179] 

This software project lends itself to prototyping on 
several counts. Obviously, the prime purpose of any inter- 
face is to interact with the user. In a model management 
system, the level of interaction 1s particularly high. 
Peecotyping allows this interaction to begin early in the 


development process and to continue throughout design and 


or 


implementation. In addition, this particular case represents 
one of the first documented efforts at deSigning a graphics- 
based model management interface. Developing a comprehensive 
set of functional specifications for such a first-time system 
is an unrealistic endeavor. Simply too many uncertainties 
exist. As explained above, prototyping is ideally suited to 
developing specifications under conditions of Uncertamme se 
Finally, when working in a graphics environment, jee. 
essential that the user (and developer) see the system as it 
exists on the computer screen. The screen size and graphics 
resolution of current computer displays are limiting at best. 
It is all too easy to develop concepts that work well on 
paper--an analog medium--but that do not translate at all to 
the digital screen. Prototyping allows the developer to get 
the visual aspects of the graphics environment in front of 
the user early in the process. 

The prototype that we propose 1s called INTUITION. The 
initial version (1.0) was developed on an IRIS 2400 dedicated 
graphics workstation. This version was not intended to 
provide any specific functionality, but was used to validate 
the basic program structure, to develop the initial screen 
layout, and to determine any unique requirements for 

2; It epitomized the "throw away" prototype as a 
mechanism for identifying software requirements. As Brooks’ 
(Ref. 12] writes, "In most projects, the first system sue 
is barely usable....When a new system concept or new tech- 
nology is used, one has to build a system to throw away, for 
even the best planning is not so omniscient as to get it 


Gignt the fitrse tame. 
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including mouse-control as one method of manipulating the 
interface. 

Because of the highly specialized nature of the IRIS 
workstation, many graphics functions that are trivial on the 
IRIS system become major considerations on non-dedicated 
machines. Consequently, INTUITION (Version 1.1) is designed 
to test the validity of a visual MMS interface in the MSDOS 
Paeyrronment using am IBM PC (XT or AT) or compatible. It is 
programmed in the Lattice C programming language and uses 
graphic routines from the HALO Graphics Library. Lattice C 
was chosen because it supports a wide variety of systems 
(thus easing future portability issues) and, more impor- 
tantly, because it directly interfaces with the Oracle 
Relational Database Management System (RDBMS) ©. The HALO 
Graphics Library was selected because of its completeness as 
a graphics language and because of the large number and 
variety of graphics devices and other peripherals that it 
Supports (again, a portability issue). This makes it 
possible to produce a bit-mapped graphics display while mini- 
mizing machine-specific graphics programming. INTUITION (V 
1.1) has been tested with and specifically supports the IBM 
Color Graphics Adapter (CGA), generic CGA work-alikes, the 
IBM Enhanced Graphics Adapter (EGA), and the Sigma Designs 
Color 400 graphics adapter. However, with minimal modifi- 

6 ORACLE was previously selected as the RDBMS of choice 
for the particular MMS to which INTUITION interfaces because 
of its support of Structured Query Language (SQL). 


33 


cation, it can be configured to run On any graphics deve 
supported by the HALO Graphics Library (See Appendix A for 
a listing of the currently supported devices.) 

Appendix B contains structure charts detailing the basic 
control structure of INTUITION (V 1.1). Both model manage. 
ment and structured modeling are evolving concepts. As such, 
numerous changes are to be expected in any software package 
involving them. To remain effective, the software must 
easily accommodate these changes as new functions are added 
and old functions are modified or removed. INTUITION accom- 
plishes this in three ways. First, all constants andwaaed 
types are consolidated and defined in header files where they 
are readily available if the program needs modification. 
Secondly, common-use utility functions are gathered into a 
Single library file (util.c). Thirdly, the control Stru@eua. 
of INTUITION accommodates a series of "“"plug-in/pull-out" 
modules to implement the main functions of the program. 
These modules, along with the submodules that support then, 
are essentially self-contained units that can be modified or 
even completely removed (i.e., pulled-out) without effecting 
the remainder of the program. Likewise, as new functions are 
identified, new modules can be developed and easily plugged 
into the control structure of the program. Not only do Giese 
techniques enhance the extendibility and contractibility of 
the program, but they also significantly ease the portability 


of the software across computer systems. 
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Micomoregaam listing Lor ENDTUEITION (V 1.1) is provided in 
Appendix C. Appendix D is a self-contained (i.e., stand- 
alone) user’s manual which provides commands and detailed 
procedures for using INTUITION. 

The program initially creates a display screen that 
consists of five fixed windows as specified in the previous 
section. In addition, two smaller windows (one designated 
ROW and another designated COL) have been included in the 
screen layout. These are intended to maintain user orien- 
tation in the virtual workspace when full-screen scrolling is 
finally implemented, but are non-functional in Version 1.1. 
They are included at this point simply to preclude a major 
screen redesign in the immediate future. Figure 6 provides 
a mock-up of this main display screen. 

The dimensions of each screen area are defined as 
floating point constants ina header file (intuit.h) and are 
entered in the program in HALO Graphics world coordinate 
mode. This facility has become a standard in languages that 
support graphics programming. It allows us to enter all 
measurements in real world units’ as opposed to dealing 
Strictly in artificial screen coordinates. Ths ee Sac a E — 


icantly eases the process of screen layout and object design. 


7 In this case, measurements are given in inches and 
Fractions thereof. Specifically, the screen is laid out in a 
rectangular grid that measures eight inches horizontally by 
five inches vertically. These proportions reflect the actual 
aspect ratio of the computer screen reasonably well. 
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Unless otherwise noted, all measurements in the program are 
given in world coordinates. 

Each of the six icons rapresenting a modeling element is 
constructed within a ractangle one inch long by eight/tenths 
pRelescl . joodaly The individual geometric shape fits “ina 
six/tenths inch square centered inside this rectangle. The 
shapes themselves have no specific significance to structured 
moge linge They were selected primarily to provide a clear 
visual differentiation of elemental types. However, the 
seventh icon representing the structured model concSo oa 
module is approximately twice the size of the other elemental 


Leons to visually show that 1% fulfills a difierent fume 


— 
— 


within structured modeling. Each icon is completely "denim 


within a separate module (in the file, icon.c). Consequaniam 
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Figure 6: INTULTIONS 2s Main Screen 
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an icon can be reproduced at any point in the program by 
simply calling its respective module. This also makes it 
easy to redesign or modify the icons during the prototyping 
process to better align them with the user’s perceptions of 
what they should be. 

Error messages and various prompts are presented to the 
user in the dialog area at the bottom of the display screen. 
However, menu choices (other that the initial command button 
selections) are made from pop-up menus that overlay portions 
of the workspace area. This necessitates a series of steps 


each time a menu is displayed: 


(1) Saving a portion of the workspace to a temporary 
array, 

(2) drawing the pop-up menu, 

(3) reading the user’s selection, 

(4) erasing the menu, and 

(5) restoring the screen display underneath. 


Moving large portions of the screen display to and from 
memory is typically a slow process often requiring machine- 
level programming to make it practical. Fortunately, the 
HALO Graphics Library provides two functions, MOVETO and 
MOVEFROM, that greatly simplify this task and are suffi- 
ciently fast for our purposes. 

The workspace area utilizes another feature of the HALO 
Graphics Library, the SETVIEWPOINT function. This allows us 
to set one world coordinate system for the entire screen and 
a separate world coordinate system for just the workspace 
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area. This technique allows us to reduce the size of the 
icons in the workspace to approximately three-fourths of 
their menu size, thus allowing us to produce somewhat larger 
models in the workspace area. 

The workspace itself consists of 56 cells arranged in a 
matrix of eight columns by seven rows. Figure 7 shows the 
layout of a typical cell. The active cell is designated by a 
box cursor that delineates the cell boundaries. This cursor, 


as well as the edge cursor, discussed later, are created with 
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Figure 7: Workspace Cell Layout 


the HALO Graphics rubber band functions. This is a set of 
functions that allow us the easily animate objects by 
automatically erasing and redrawing their image as their 
screen coordinates change. These functions use an exclusive 


he, 


Secor Gperation Seemedraw and erase the cursor without 
destroying the underlying screen image. 


Selected icons and their associated names are displayed 


inside the cell boundaries. These cells can then be 
connected by arcs (edges). LNGUTEONM AY 1.1) currently 
restricts the numbers of edges (1.e., calls) emanating from a 


Single cell to five or less. Otherwise, every effort was made 
to allow the user near total freedom in positioning the edges 
so that the program does not unnecessarily dictate his view 
of the model. This presents several problems. 

First, edges may be drawn at any angle, so lines 
approaching the horizontal or vertical show varying degrees 
of aliasing®. This can make it difficult for the eye to 
follow the edge, particularly if lines happen to intersect, 
as they well may in a complex model. The only solution at 
this point is to use the maximum resolution possible to 
reduce the "jaggies," although in the future, various anti- 
aliasing techniques should be explored to improve the display 
quality. 

The second problem comes from the fact that the edges 
must be directed arcs. On paper, this 1S accomplished quite 
Simply by placing an “arrow"™ on the calling end of the arc. 
It becomes much more difficult on the computer screen. Since 


the individual screen pixels are rectangular, not square, the 


8 This is the stair-step effect commonly seen when 
Circles and lines are drawn on a computer screen. 
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arrowS on non-horizontal or non-vertical edges are severely 
distorted. To solve this problem, we chose to draw these 
arcs with short vertical sections that Contain the “ame 
itself (see Figure 7). 

Finally, if an edge is simply drawn as straight lines 
from a beginning point to an ending point, the possibiiaa. 
exists that it will inadvertently pass through an  2¢@Greeee 
preclude this from happening, we allow the user to change the 
direction of an edge (up to three turns in V 1.1) by "same 
moving the edge cursor to a desired location, pressing a key, 
and continuing the edge from that point. However, this means 
that we have to save, not only the beginning and ending 
coordinates of each edge, but also the coordinates of each 
ele) 9 aie eXeiaui chic’ ~ This significantly increases the amount of 
graphics data that the program must track in order to 
manipulate the image (e.g. to erase an arc that iS incor- 
rectly placed). 

The HALO Graphics Kernal contains functions for ~aigiee 
cating computer memory and for rapidly saving and recalling 
the entire graphics screen to and from this allocated block 
of memory. This technique is used to create a second screen 
for data entry of the non-graphical portions of the “Stages 
tured model (see Figure 8). The user can toggle back and 
forth between the two displays at any time without loss of 


Gated, 
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To complete the process of model creation, the graphical 
representation must be transformed into a database format and 
stored in the ORACLE RDBMS. INTUITION interfaces with the 
database through ORACLE’s programmatic interface called 
Eeo* C. This enables INTUITION to actually read and write 
data to ORACLE, using a high-level query language: Sere — 
tured Query Language, or SQL (pronounced "sequel"). 

ata @tSestored imp @BACLE in two tables. Theses. Of 
these is the ENTITY table. It contains the data necessary to 
describe the specific characteristics of each model node. 
The second is the RELSHIP table which holds the data that 
describes the relationship between nodes. In the case of 
genus graphs, this is the calling sequence data. For modular 


trees, it reflects what subtrees are contained in the module, 


MODEL NAME: Record NUMBER: 
Name: Description: 
Type: Last Modified: Number Mods: 
Date Added: 
Index: Generic Range: 


Index Statenent: 


Generic Rule: 
Comments: 
7 Relationship Type: Enye 1? calied by 
Edge 2: called by 
Edge 3: called by 
Relative Position: Edge 1: called by 
: called by 





[+] Next [-] Previous [fe] Edit [f] Find [{s] Save [r] Return 


EugGune CL cULTIONS(Y Totyepata Entry Screen 
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l.e., the parent-child relationships. Refer to igure aeae 
the specific contents of each table. 

In the ENTITY table, ENAME and ETYPE hold the entityename 
and entity type. For structured models, these refer to the 
specific genus or modular name and the appropriate element 
type (pe; “Gey a, Va, f7aet, cunne DNAME is a free-form 
descriptive variant of the entity name. DATE ADDED is the 
date that the record was created and LAST MOD 1s the date 
that the record was last modified. NMODS is the number of 
modifications that have been made to the record. pL) D.@- 
IDX STMT, GRANGE, GRULE are the index, index set statement, 
generic range statement, and generic rule, respectively, from 
the structured model schema paragraph (see Figure 5). 
COMMENTS equates to the structured modeling concept of an 
informal interpretation. 

In the RELSHIP table, RTYPE is the relationship type. 
This is either "CALLS" for a generic calling sequence or 
"CONTAINZ" for a modular subtree. EINAME and BITYPE reflect 
the calling element and type in a genus graph or the parent 
node and type in a modular graph. Likewise, E2NAME and 
E2TYPE are the called element and type in a genus graph or 
the child node and type in a modular graph. ACC METH (ae@ecs 
method) and FREQ (frequency) are not used in this program and 
are always null filled. REL POS is used only in moduiiem 
structures and contains the positional number of the node in 


a monotone ordering. 
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ORACLE RDBMS Tables 


It is obvious that ENTITY and RELSHIP are general purpose 
tables within the context of the model management system. As 
such, they contain data fields that are used for a variety of 
purposes. Consequently, not every item in each table is 
necessary to describe a given modeling element or relation- 
ship. For example, a primitive entity requires only ENAME, 
DNAME, DATE ADDED, LAST MOD, NMODS, and COMMENTS. The 
remaining fields in the ENTITY table would simply contain 
null values. On the other hand, a test element or a function 
element requires values for IDX STMT and GRULE, in addition 
to those necessary for a primitive entity. A similar 
Situation holds for the RELSHIP table, A calling sequence 
requires only E1NAME, EI1TYPE, E2NAME, and E2TYPE (the calling 
and called nodes). However, a modular relationship antem also 
include REL POS to denote the positional relationship of 
child to parent in the monotone ordering. All remaining 
fields are simply null placeholders. This capability to 
design a general purpose table and then create alternative 
views or ways of looking at the same data is one of the 
distinct advantages of the ORACLE RDBMS and SQL. The views 
become virtual tables through which you can see the data that 
is stored in real tables. While the views themselves contain 
no data of their own, they can be operated on just as if they 
were the real tables. According to the ORACLE documentation, 
this has the advantage of simplifying data access, of 


providing data independence, and of providing data privacy. 
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Persion 1.1 Cs Omron talls™= snort of providing the 
total functionality specified in the previous section. These 
shortcomings, with recommendations for their inclusion in 
future versions of the program, are discussed in Section VII 
under future enhancements to the system. 

However, INTUITION (V 1.1) has shown that the imple- 
mentation of a viSual interface for a model management system 
is feasible in a standard microcomputer environment; but, it 
is not a trivial undertaking. The primary difficulties stem 
from the open ended nzusiure of the thinking, and hence the 
modeling, processes. Different people approach the same 
problem in a variety of ways. In a computer environment, the 


hardware and software should transparently assist the modeler 


in depicting his mental image of the model. fe should not 
unduly restrict or inhibit his thought processes. The 
program should accommodate him. He should not have to bend 


his will to the machine. 

It is unfortunate for the programmer that every user is 
different. In general, software cannot be designed for a 
Single individual user, but must satisfy many. It is these 
differences in users, coupled with the need for free-form 
entry of a model concept, that make this type of programming 
Semeafficult to do well. 

Nevertheless, the development of a visual interface poses 


no unsolvable problems, even though the IBM PC/MSDOS (and 
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compatibles) environment is perhaps not ideal? from a 


programming perspective. Two areas deserve particular 
comment. 
The first of these 1s screen resolution. The typical 


microcomputer display device is a standard cathode ray tube 
(CRT). It generally uses raster-scan technology to “paint™ a 
picture on the screen by means of an electronic beam. This 
picture 1s created as a set of points (called picture 
elements or pixels) as the electron beam scans from left to 
BIGht and (POP ero beer onr The number of pixels that can be 
displayed without overlap is called the CRT’s resolution. 

Obtaining adequate resolution in the MSDOS environment 
presents some concerns. Our initial specifications required 
the program to support both CGA and EGA type graphics 
adapters and to support color coding of various icons Vand 
paragraph schema. It quickly became apparent that the 
maximum CGA color resolution (320x200 pixels) was severely 
inadequate. For example, circles smaller than the diameter 
of a quarter loose their “roundness." Diagonal lines 
exhibited excessive aliasing, making them unsuitable for 
drawing directed arcs between nodes. 

The coup de grace was the text display. Text is required 
to label element names within the drawing area. Even in 


graphics mode, CGA text is displayed at 40 characters per 


9 More will be said about the "ideal" environment in 
Section VIII, under future enhancements. 
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ii eet- Text this large severely limits the number of nodes 
that can be displayed simultaneously on the screen. ya ess 
defeats one of the primary advantages of a visual interface-- 
the ability to see the nodes and arcs in context. The disad- 
vantages of the CGA color mode heavily outweigh the advantage 
of having four colors available for programming. We decided 
to limit CGA displays to black and white in order to use the 
higher resolution (640x200) available in the monochrome 
display mode. Even then the size of the text display is 
limiting because text is displayed twice as high as wide. 
Realistically, EGA (640x385) or better resolution is desir- 
able for any display and is essential for color displays. 

The second area of concern is computer memory. Graphics 
programming, in general, 1S memory intensive. Im Paddieren, 
this program uses pop-up menus which require that large 
sections of the screen temporarily be saved to memory when a 
menu is displayed so that the screen underneath can be 
restored when the menu is erased. The higher the resolution, 
the more memory that is required to store the screen infor- 
mation. 

Compounding the fact that the graphics themselves use 
substantial memory, the program needs to accommodate reason- 
able sized models (1.e., up to several hundred nodes and 
arcs). The data structures necessary to hold both the 
graphics data and modeling data for these elements is 


Significant. Finally, the program must share memory with the 
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Oracle RDBMS which has considerable memory requirements of 
its own. 

The outgrowth of this is that expanded memory, beyond 
640K, is necessary for effective use of the system. How much 
expanded memory is dependent essentially on what size models 
will be created and what resolution screen is desired. The 
availability of 640K or less, however, necessarily restricts 


the user to CGA monochrome and relative small models. 
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VII. FUTURE ENHANCEMENTS AND ADDITIONAL RESEARCH 


Sever aiewEl li Etes sana funecertons Should be included in the 


next revision of INTUITION. These enhancements are discussed 
below. 

penolling. Ct i Mini wsonly ! SUpports a limited 
workspace of 56 cells. While sufficient to test all program 


functions, this workspace is insufficient to hold any but the 


smallest models. To be effective, the next version of 
INTUITION should support a four-way, scrollable Vir tae" 
workspace. The program should determine the actual maximum 


Size of this workspace automatically from the memory avail- 
able on a given computer and should configure itself accord- 
eugly. 

Saving and Loading Models. It 1S not unreasonable to 
expect the user to enter a model (particularly a large model) 
in more than a single session. This means that the program 
must support some method of saving the partial model to disk 
and subsequently reloading it, without the loss of infor- 
mation or spatial orientation. Marr EPON (Vv di) only 
supports a limited means of doing this. Basically, the 
entire graphics screen is saved to disk as an image file. 
The necessary text information required to describe the model 
is saved to another file. This method will not work when the 
workspace is expanded by scrolling. The next version of 
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INTUITION should support the Saving and reloading of all 


models, regardless of size. 


Printing Model Graphs and Model Schema. INTUI Te) 
7 ee) Supports no hardcopy devices, although several 


printer and plotter routines are included with the HALO 
Graphics Library. Printing a model schema presents few 
problems since it is essentially text-based data. Printing 
the model graph is more difficult because it involves output 
to a graphics printer or plotter. The HALO Graphics ilgaaea 
eases these problems somewhat by providing driver programs 
for several common printers and plotters. In addition, the 
HALO library includes a special graphics device driver called 
the Virtual Raster Interface. This device driver is unique 
in that it does not control a specific board: Rathexaaee 
creates the model of a display device in the IBM PC user 
memory space. Such a virtual display device permits the user 
to create a display of any arbitrary resolution andijmge 
output the display to a hard copy device. It 1s thes 
possible to produce printouts of much higher resolution than 
the display device actually installed in the computer. The 
possible advantages of producing hardcopy with this device 
driver should be explored in the next version of INTUITION. 
TESe Ens. Pressman (Ref. 10, p. 467,470], in describing 
testing, states, 
Software testing is a critical element of software quality 
assurance and represents the ultimate review of specifi- 
cation, design, and coding....The increasing visibility 
software as a system element and the attendant "costs" 


50 


associated with a software failure are motivating forces 
aoe wo lb planned, ehonough testing. It is not unusuak for 
a software development organization to expend 40 percent of 
the total project on testing....The design of tests for 
software and other engineered products can be as chal- 
lenging as the initial design of the product itself. 

Only limited and informal testing of INTUITION has been 
done. This consisted primarily of “white box" testing 
required during the coding process. A detailed test plan 
should be developed and appropriate test cases devised to 
more fully test the program. This should include "white box" 
testing to ensure that all independent paths within each 
function have been exercised at least once, that all logical 
decisions have been tested on both the true and false sides, 
that all loops have been tested at their boundaries and 
within their operational ranges, and that the internal data 
structures are valid. "Black box" testing should also be 
conducted to ensure that the program meets all functional 
requirements. Specifically, it should determine if there are 
amy incorrect or missing functions, if there are any inter- 
face errors between functions, if there are errors in data 
structures or external database access, if there are perfor- 
mance errors, and if there are any initialization or termi- 
Meaelon errors. [Ref. 10, pp. 472, 484] 


With regard to further research, two areas have surfaced. 


These topics are briefly introduced below. 


Bescreation of the Graphic Representation from the 


Database Representation. Concurrently with this thesis, 
Wyant [Ref. 13] has designed and implemented a program that 
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uses the database representation of a structured model to 
redisplay a pictorial view of the genus graph. In a sense, 
his thesis and this one are opposite sides of the same coin. 
While this thesis concentrates on entering a structured model 
into the database using a visual representation of the genus 
graph, Wyant’s does just the opposite. Both functions are 
necessary parts of a complete model management interface. 


In fact, both programs could be combined into an inte- 


grated system. This could provide substantial savings in 
program overhead. No major problems are anticipated in 
merging the two. Both are written in the Lattice C program- 


ming language, use the HALO Graphics Library, run in the 
MSDOS environment, use Similar icon images for display, and 
access the same database structures within the Oracle RDBMS. 
Minor problems, such as adopting a common screen display and 
eliminating duplicate functions, should be easily resolved. 
One major concern does stand out, however. When a model is 
reloaded from the database representation, spatial relation- 
ships set up between nodes and arcs when the model was 
originally designed will be lost. This could cause some 
disorientation for the user, particularly if he expects to 
see "his" model re-displayed. Wyant proposes to solutions to 
this problem: 
(1) expand the database to include the necessary graphical 
data, so that the graph can be re-displayed as 
Oerigunally drawn; jou 


(2) reformat the user’s representation (following Wyant’s 
algorithms) as the user enters the model data. 
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Moving Genera/Subtrees within the Pictorial Represen-= 


tation. One of the advantages of a computer interface is the 
ability to quickly and easily modify the model representation 
to reflect how the user currently views or thinks about the 
model relationships. To do so, the user must be able to 
specify a segment of the model pictograph--either a group of 
genera or a modular subtree--and, once specified, to move 
Moe TrOuUping to any other location in the pictograph. This 
presents major problems that are, in many respects, similar 
to those faced by Wyant in re-creating the model represen- 
tation from the database description. 

Specifically, the entire pictograph must be realigned to 
open up space for the group at the new location and to close 
up the vacated space at the old location. Even more diffi- 
cult, all of the edge relationships between nodes must be 
maintained and automatically adjusted for the new location 
(without intersecting any other icons). Essentially, this 
Megmires restructuring of the entire model. In an inter- 
active environment, this must be accomplished in a reasonably 
short time. It is a potentially significant problem that 
must be resolved in future versions, quite possibly through 
employment of artificial intelligence techniques. Aliter- 
natively, the algorithms for displaying the model that were 
developed by Wyant could possibly be used to accomplish this 


mace lon. 


a3 


10) As stated earlier, while 


Other Operating Environments 
the development of a visual interface is certainly feasible 
under MSDOS, it is not the optimum programming environment 
for a graphics based system. Several alternatives exist. In 
particular, recent advances in computer technology provide 
some very attractive approaches to explore. 

As indicated in a previous section, the original version 
of INTUITION was implemented on a dedicated IRIS Graphics 
workstation. With its ability to link to the UNIX environ- 
ment, the IRIS offers an excellent high-end solution. ite 
provides all of the necessary graphics functions and is 
unique in offering the capability of viewing graphics Objeee. 
in three dimensions. Whether or not there is any advantage 
in being able to visualize a structured model (a modular 
tree, for example) in three dimensions is an interesting 
question in its own right. 

Within the IBM and compatibles world, adaptation to the 
forthcoming OS/2 operating system is an obvious migration 
path from the MSDOS environment. The arrival” of @ier 
promised "Presentation Manager" software should enhance the 
graphics operating environment. An alternative approach to 
enhance the current MSDOS environment is the use of an 


add-on "windowing" environment. In this regard, DESQview 


10 These comments pertain only to the implementation of 
a visual interface. They do not necessarily pertain to the 
overall implementation of a model management system. 
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from Quarterdeck Office Systems is a very strong contender. 
Not only does it offer windowing capability, but it also 
provides extensive memory management and multi-tasking capa- 
bilities, both of which could be can be effectively utilized 
in a model management interface. 

Rather than windowing, a two monitor system could also be 
devised. One monitor would be used to display and manipulate 
the graphics information. A second monitor could display 
textual data and allow direct access to the ORACLE RDBMS 
mmeough the SOL*Forms utility. This 1S an ORACLE function 
moaes lets you design custom input "forms" for any appli- 
cation. These forms provide fast and easy data entry, 
updates, deletions, and queries to an ORACLE database. This 
would provide the best of both worlds, so to speak, allowing 
a truly integrated graphics and text environment. 

However, perhaps the most attractive environment from a 
hardware perspective is the Apple Macintosh II. Based ona 
proven visual interface, the "MAC II" offers integrated 
windowing, menus, mouse-control, graphics primitives, and 
expansion memory. It provides adequate high resolution 
graphics and color without the confusion engendered by the 
multitude of add-on graphics devices available for the IBM 
PC’s and compatibles. From a software viewpoint, its advan- 
tages are less apparent, although developing a model manage- 
ment interface under Apple’s new HyperCard software certainly 


offers possibilities worth pursuing. The main drawback is 


5) 


the availability of a suitable relational database system--in 
Particulam one that supports SQL (Structured  @ijeiay 


Language). 
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APPENDIX A 


HALO Supported Graphics Devices 


Amdex MAT 

AT&T Display Enhancement Board 

AT&T Image Capture Board 

AT&T Indigenous Graphics Board 

AT&T TARGA 8 and M8 

AT&T TARGA 16 

AT&T Video Display Adapter 

Conographics Model 25 

Conographics Model 40 

Datacube IVG-128 

Generic IBM Display Card 

Hercules Monochrome Graphics 

IBM 3270 PC with All Points Addressable 
Graphics Adapter 

IBM Color Graphics Adapter 

IBM Enhanced Graphics Adapter (EGA) 

IBM PCjr 

Imaging Technology FG-100-AT 

imagunguneechmology  2C—-Vision 

Imagraph AGC 4 

Imagraph AGC 8 (IM512P and IM1024P) 

Metheus Omega/PC Display Processor 

Micro Display Systems Genius VHR 

New Media Graphics PC Overlay 

Number Nine Revolution 

Number Nine Revolution 2048x4 

Quadram Palette Master 

Quadram Quadscreen 

Quadram Quadcolor II 

Scion PC 640 

Sigma Designs Color 400 

SEB Grapna< Plus [7 

Tecmar Graphics Master 


oy 


33. Texas Instruments Profess#oenan 
34. Tseng Labs EVA & EVA/480 

35. Virtual Rasten Interface! 
6. WYSE WY-700 


ial This device driver is unique in that is does not 
control a specific board. Rather, it creates the model of a 
display device in the IBM PC user memory space. Such a 
Virtual display device permits the user to create a display 
of any arbitrary resolution and then output the display to a 
hard copy device. It is thus possible to produce printouts 
of much higher resolution than the display device actually 
installed in the computer. 
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APPENDIX B 
Siaaicreuse: Charts 
Figure [Ova wnonTrON (V 1.1) 
Figure 1l: serngen() module 
Figure 12: flmode() module 
Figure 13: f2add() module 


Figure 14: f3delete() module 
Figure 15: f4change() module 
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File Name 


fmicuat.h 
Seruct .h 
Scseruct .h 
fem. Cc 


Se ell. C 


mie nu. C 


meons.Cc 


meee oC 


man. Cc 


Ae eeoOl x C 


Bao gaat bs EEN 


QO fp 


0200 & 


7~Qmoand ow 


Mond rPwWU-rPNITQMOAADTD®D 


hunieceon Name 


none (header files) 


main () 
scrngen () 


devmenu () 
clearscn() 
curlocate() 


pe icon () 
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are Onn) 
Va LeOn ) 
ne otieG) 
ee ony) 
io Gon ) 
arrow () 


Igo OuE) 
Mabe he pomt,() 
getchr () 
geeode ena () 
inside () 

draw submenu () 

ISS CoS Vinee jiSe® 
define dot test () 
write error(); 
cleat eciialog box (} 
ele ar static Dox () 
Winkee scale g() 

SIGNE Sie Ye aL ievey()) 

Pee wuane) 

get model name() 
init_workspace () 


flmode () 
f2add() 
f3delete() 
f4change () 
ES fanned () 
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f6move () 
f7load() 
f£8save() 
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add_node() 
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x Name: ceric Wel teeelh “3 
* Purpose: contains #defines for Intuition * 
me AUEHOr: David D.~O’ Dell * 
* Date: 15 December 1987 * 


kkk KKK KKK KKK KKK KR KR RK RK RK RK KKK KK KK RK KK KK RK RK KR Kk ee / 


#define MAXNODES 56 /*maximum nodes in workspace*/ 
#define BEGIN 0 /*starting point of edge*/ 
#define END 4 /*ending point of edge*/ 
#define MAXEDGES 5 /*maximun edges in and out of node*/ 
#define MAXPOINTS 6 /*maximum coord pairs for an edge*/ 
#define TRUE i /*boolean true is non-zero*/ 
#define FALSE 0 /*boolean false is zero*/ 
#define BLACK 0 /*standard colors*/ 

#define BLUE il 

#define GREEN 2 

#define CYAN 3 

#define RED 4 

#define MAGENTA 5 

#define BROWN 6 

#define WHITE 7 

#define GREY 8 

#define BRIGHT BLUE 9 

#define BRIGHT GREEN 10 

#define BRIGHT CYAN eat 

#define BRIGHT RED 2 

#define BRIGHT MAGENTA 13 

#define YELLOW 14 


#define BRIGHT WHITE iS 


#define SOLID iL /*hatch style indices*/ 
#define DITHERED Z 

#define WXMAX 8.05 /*set maximum world x-coordinate*/ 
#define WYMAX 5.05 /*set maximum world y-coordinate*/ 
#define WXMIN 0.0 /*set minimum world x-coordinate*/ 
#define WYMIN 0.0 /*set minimum world y-coordinate*/ 


#define BUTTONS 1 J Command put tonvarea* / 
#define ICONS 2 y-1con area*/ 
#define WORKAREA 3 aaOrk anrea* / 


/*following coordinates are given in world coord system*/ 


meetrine XLLSTATUS 0.0 Be Statuseoo. wlower Loft  :-coord: / 
#define YLLSTATUS 4.7 /*xstatus box lower left y-coord*/ 
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#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 


XURSTATUS 
YURSTATUS 


XLLROW 
YLLROW 
XURROW 
YURROW 


XLLCOL 
YLLCOE 
XURCOL 
YURCOL 


XLLICONS 
YLLICONS 
XURICONS 
YURICONS 


XLLCMDHDR 
YLLCMDHDR 
XURCMDHDR 
YURCMDHDR 


XLLBUTTONS 
YLLBUTTONS 
XURBUTTONS 
YURBUTTONS 
XLLDIALOG 
YLLDIALOG 
XURDIALOG 
YURDIALOG 


XLLWORK 
YLLWORK 
XURWORK 
YURWORK 


XLLPE 
YLLPE 
XURPE 
YURPE 
XLLCE 
YLLCE 
XURCE 
YURCE 


XLLA 
YLLA 
XURA 
YURA 


XLLVA 
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/*status box upper right x-coord*/ 
/*status box upper right y-coord*/ 


box 
box 
box 
box 


/*row 
/*row 
/*row 
/*row 


/*col 
i col 
L~Co! 
pzcol 


box 
box 
box 
box 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 


left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
rignt Y—-coerela 


/* 166M 
/*icon 
/*icon 
/* eon 


aréa 
area 
area 
area 


lower 
lower 
upper 
upper 


left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y—-coora 


/ * ema has 
/*cmd hdr 
/*cmd hdr 
/*cemad har 


/*bduttons 
/ * Suttons 
/*buttons 
/*buttons 
/*dialog b 
/*dialog b 
/“dralog yh) 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 
Ox 
OX 
OX 


lower 
lower 


upper 


left x-coord*/ 
left y-coord</ 
right x-coord*/ 
right y-coord*/ 


left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 
left x-coord*/ 
left y-coord*/ 
right x-coord*/ 


/*dialog box 


/*workspace 
/*workspace 
/*workspace 
/*workspace 


/*PE 
/*PE 
/*PE 
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/*CE 
/*CE 
/ =CE 
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left y-coord*/ 
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left y-coord*/ 
right x-coord*/ 
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left x-coord*/ 
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ELOnE 
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x-coord* / 
Ve =@ Gioieela a, 


/*B 
/*2 
/*A 
/*A 


lower 
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left x-coord*/ 
left y-coord*/ 


jantepele 
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=x-coord* / 
VaeCOore 


x-coord* / 


#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
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#define 
#define 
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#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 


YLLVA 
XURVA 
YURVA 


XLLF 
ToL 
XURF 
OEE 


ALL 
SEVEN 
XURT 
YURT 


XLLM 
YLLM 
XURM 
LURM 


XLLF1 
Ge E 
AWRE FT 
URE 7 


Pole 2 
eres 2 
AURF 2 
MURE 2 


XLLF3 
lik 3 
XURF 3 
YURF3 


XLLF 4 
YLLF4 
XURF 4 
YURF4 


PLIGe > 
MELE S 
MURF 5 
MURE > 


XLLF6 
Mini 6 
XURF6 
MUREG 


Ane 7 
pre ley) 
POUR 7 


oe) 


ee) 


W @ONM ~] 


ae a a 2 (ep) 


OO 


oO ~l 


WwHN Dd 


IO Oi © 


N © F Oo 
mm © © 


ee on 
i @O NM @& 


Oo =) 9 0) So) SON — ~I7O Gi 
\O © 6) © NN O WO O&O 


WS Ore 


wn Oh > 


LS 


NO Oe 


te Oy) °C) 


as (SS) 


/*VA lower left y-coord*/ 
/ Veeupper right x—-coord*/ 
/*VA upper right y-coord*/ 


an 
Ls 
sae 
aaa 


fege' 
eae 
ey, 
ais 


aaa 
per d 
a aal 
eet. 


Pe 2 
(FE 2 
(5372 
(ENT P2 


Ls 
Por 3 
pe? 
/*E3 


/*F4 
/*F4 
/*F4 
/*F4 


(ltt 
V XE S 
/*ES 
(Ee 


/*F6 
/*EG 
/*EG 
/*F6 


og, 
a 
ET 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
eilgile Yeeengels 


Fett et=Ccoord*/ 
left y-coord*/ 
right x-coord*/ 
iebieloic leleyoisrols// 


left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


lower 
lower 


upper 
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left x-coord*/ 
left y-coord*/ 
itinee «-COOrd 
Ele airmy COC Ld / 


left x-coord*/ 
left y-coord*/ 
Pigatm.-coermad-/ 
right y-coord*/ 


leita x=cocras/ 
IES le We SO Getoles if 
right x-coord*/ 
right y-coord*/ 


left x-coord*/ 
Stray coord: 7 
right x-coord*/ 
right y-coord*/ 


left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 


Vette e Oar da ~/ 
leGEa-Goord”/ 
right =-coord*/ 
Boone V-coords/ 


left x-coord*/ 
Vom yaefNOLras 
Plgit —2—coora7) 


#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


YOREw 


XLLF8 
YLLF 8 
XURF 8 
YURF 8 


XLLF9 
SORIGS s 
XURF 9 
TURES 


SUELO 
YEEE EO 
XAURF 10 
YURF10 


TEXTHT 
TEXTWD 
HORIZONTAL 
ROTATE 90 
ROTATE 180 
ROTATE 270 
BORDER 
NOBORDER 


Ome ~) 


Ow oO ~ 


Ow oOo ~) 
WwW © © & 


OrhW FOF F 
(Se TE] A a = 


io oO Oo 


OO W O 


[te 


7 * 88 
ests 
/*E8 
[2S 


Bes, 
/*F9 
fee 
[ones 


/*F10 
/*F10 
/*F10 
/*F10 


/*dot 
/*dot 


upper 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


lower 
lower 
upper 
upper 


text 
text 


right y-Coeraa, 


left x-coord*/ 
left y-coora 
right x=coond=<7 
right y-coord= 


left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 


left x-coord*/ 
lett y-coend = 
right x-coord*/ 
right y-coord*/ 


height x 8 pixles*/ 
width x 8 pixels*/ 


/*norizontal text uparn«, 
/*vertical text path*/ 
/*up-side-down text path*/ 
/*vertical text path*/ 
/*border around dot text*/ 
/*no border around dot text*/ 
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* Name: 
* Purpose: 


SE muect-. la 
contains data structures for ORACLE tables and * 


g to hold coordinates for model nodes and edges. * 


~ AULNOLr: 
x Date: 


David= Dw Oo Dell 
10 March 1988 


Ka K KK KKK KKK KKK KK KR KKK KKK KKK KKK KKK KKK KK KKK KKKKKKEKKEKK KKK KK KKK KKK / 


Struct table 


{ 
char 
char 
char 
char 
char 


*ename; 
*etype; 
*dname; 


poo Lemaacaed, 


sitast mod, 


int —nmods-; 


char 
char 
char 
char 
char 


char 
char 
char 
char 
char 
char 


mec ° 
oliobse ep ciuter 
*grange; 
AG EU ; 
*comments; 


Sety pe; 
*elname [5]; 
*eltype([5]; 
*eZ2name [5]; 
*e2type([5]; 
Race Metin, 


ant Ereq; 
eels ; 
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SEruct node 


{ 


int used; 


char 
chiar 


float nodex; 
float nodey; 
Tie Ou: 
ait el 


*ename; 
*etype; 


/*element name*/ 
/xelement type*/ 
/*descriptive name*/ 
/xdate node created*/ 
/*date last modified*/ 
/*number of mods*/ 
/*index* / 

/*index statement */ 
/*generic range*/ 
/*generic rule*/ 
/*interpretation*/ 


/xrelationship type*/ 
/*calling element*/ 
/*calling type*/ 

/*called element*/ 
/*called type*/ 

/*access method and*/ 
/*frequency always null*/ 


/*position in monotone order*/ 


/*TRUE is used-FALSE is unused*/ 
/*link to ORACLE tables*/ 

/*node type*/ 
/*x-coord of cell 
/*y-coord of cell 
/*number of edges 
/*number of edges 


center*/ 
center*/ 
out used*/ 
in used*/ 


float edgex[5jJ [5]; 
float edgey([5] [5]; 
ant cnode[5] > 
int cedge[5]; 


ie 


/*element is a table structure*/ 
Struct table element [MAXNODES]; 


al 


/*x-coord of edges 
/*y-coord of edges 
/*number of called 
/*number of called 


out 1-5*/ 
Ove oe / 
by node*/ 
by edge*/ 


1 


/*xcell is a node structure*/ 
struct node cell [MAXNODES]; 


int used nodes; /*number of used nodes*/ 


int active node; /*currently selected node*/ 
char *model_ name; 


TZ 
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* Name: exstruct.n * 
x Purpose: contains external data declarations corresponding * 
x GOuenOosSe In Struct .h. = 
PAU CHOL : David Di. O° Deli. * 
> Date: 10 March 1988 * 
KR RR RRR KK KK RI I KI i a I I kk tk / 


extern struct table 
{ 
char *ename; 
SaGeeceype. 
char *dname; 


enate date added, 


ehary last emed, 
int nmods; 

ohar acs ° 

ehar ice otme, 
char *grange; 
QNeNE Teo laslliess 
char *comments; 


Chat. Geype, 

char *elname([5] 
char *elitype[5] 
char *e2name[5] 
char *e2type[5] 
Chae saceemetn, 


~e ~e ~e 


™e 


Mt freq: 
Tighe, eis) || jevevaty 


Ve 


extern struct node 


{ 


int used; 


char *ename; 
char *etype; 
float nodex; 
float nodey; 
deMite Outs: 
te i; 


Float edgex[5] [5]; 
Float edgey[5]) [5]; 


Pie ecnode 5] >; 
int cedge[5]; 


/*element name*/ 
/*element type*/ 
/xdescriptive name*/ 
/x*date node created*/ 
/*date last modified*/ 
/*number of modifications*/ 
/*index* / 

/*index statement*/ 
/*generic range*/ 
/*xgeneric rule*/ 
/*interpretation*/ 


/xrelationship type*/ 

/*calling element*/ 

/*calling type*/ 

/*called element*/ 

/*called type*/ 

/xaccess method always 
null, 

/*frequency always null*/ 

/*position in monotone 
order*/ 


/*TRUE is used-FALSE is 
unused* / 
/*link to ORACLE tables*/ 
/*node type*/ 
/*x-coord of cell center*/ 
/*y-coord of cell center*/ 
/*number of edges out used*/ 
/*number of edges in used*/ 
/*=x-coord of edges out 1-5*/ 
(27 -cOorudor, cages out 1-5%*/ 
/*number of called by node*/ 
/*number of called by edge*/ 


/*element is a table structure*/ 
extern struct table element [MAXNODES] ; 


/xcell is a node structure*/ 
extern struct node cell [MAXNODES]; 


extern int used_nodes; /*number of used nodes*/ 
extern int active node; /*currently selected node*/ 
extern Char *model name; 
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* 


* 


* 


* 


* 


Name: INeULELON «2 

Purpose: to allow the user to enter a structured model a! 
Author: David D. O’Dell * 
Date: 29 December 1987 * 


kok KK RR KR RR RK Rk kk OK Rk kk kk kK kk RR kk RK kk OR KR kk Rk Rk kk / 


#include "stdio.h" 
#include "intuit.h" 
Fre lude “struct .h" 


main () 

{ 
char getchr(); /*function to input keyboard character*/ 
Eeoadtecl, YR, x2) v2 /*graphic coordinate variables*/ 
mloat Cx, CY; /*x-hair cursor coordinates*/ 
meoat DUE eon nel ght, /*xcommand button height*/ 
float button_width; /*command button width*/ 


float hheight, hwidth; /*height and width of x-hair 


cursor*/ 
int sw; /*exclusive-or mode switch*/ 
int status; /*termination status variable*/ 
mit COLOr, /*color and hatchstyle*/ 
Pits On; /*determines command button 
selected*/ 

/* SS So OO SO SO SS SO SO Oo OS 0 S99 9 a SS SS SSS x / 
Status=0; /*normal termination status*/ 
scrngen(); /*draw display screen*/ 
biagpor tw) ; /*set full screen viewport*/ 
color=WHITE; 

BelecolCor (&CClOE) 
button _height=YURF1-YLLF1,; /*calc command button height*/ 
button width=XURF1-XLLF1; y Gake scommand button width*/ 


f=) 


hheight=button_height/2.0; 
hwidth=button_width/2.0; 
color=WHITE; 
inithcur(&hheight, &hwidth, 


Cx=XLLBUTTONS+hwidth; 
cy=YURBUTTONS—hheignet; 
movhcurabs (&cx, &cy); 
delhcur (); 


on=1; 


/*height of x-hair cursor*/ 
/*width of x-hair cursor*/ 
/*color of x-hair cursor*/ 
&color); /*init x-haiy Ccurson 


/*put x-hair cursor in the*/ 
/*upper right corner of the*/ 
/*command button area*/ 
/*don’t show x-hair cursor*/ 


/*initialize to £lbuttema 


*1=0.0; yil=0.0; x2=0.0; y2=0.0; /*initialize bar coord 


while (TRUE) 
{ 


sw=l; /*1=on*/ 


setxor (&sw); /*turn on exclusive-or mode*/ 


bar (6x1, &y1,6éx2, &6y2)5 /*turEm old command buttonmore 


switch (on) 


{ 


/*changes button color*/ 


case l: x1=XLLF1; yi=YLLF1; /*low lt coordmanr 
Fibutton-7 
X2=XURF1; y2=YURF1; /*up rt coords of 
Fibuttome7 
break; 
case 2: X1=XLLF2; yl=YLLF2; /*low 1t coord of 
F2DUEEOn., 
Xx2=XURF2; y2=YURF2; /*up rt coords of 
F2button*/ 
Drea 
case 3: xX1=KXLLF3; yl=YLLF3; /*low lt coord oe 
F3button = 
X2=XURF3; y2=YURF3; /*up rt coords of 
F3button*/ 
break; 
case 4: X1=XLLF4; yl=YLLE4; /*low lt coordmot 
F4button*/ 
xX2=XURF4; y2=YURF4; /*up rt coords of 
F4button*/ 
break; 
case 5) Xx1=XLLF5; yl=YLLFS5; /*low lt coordien 
F 5butienc, 
x2=XURF5; y2=YURF5; /*up re coordsmas 
FSDuEtone, 
break; 
case 6: x1L=KLLF6; yi=YLLF6; /*low 1t cosgmamag 


F6button*/ 
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ee -AURB6; y2Z=YUREG, /*up rt coords of 


F6ébutton*/ 
break; 
case 7: mi—MbGbes VlI=YLLE7; /*low 1t coord of 
Py burton */ 
hor ye=YURE 7; /*up rt coords of 
F7DUEton*/ 
break; 
case 8: ribo IY Lees /* low 1t coord of 
F8button*/ 
RZ=AURES; y2Z=YURFS; /*up rt coords of 
F8button*/ 
break; 
case 9: el=XLLE 9; yil—vuubo;)/*low Lt coord of 
F9button*/ 
x2=XURF9; y2=YURF9; /*up rt coords of 
F9button*/ 
break; 
case 10: x1=XLLF10; y1l=YLLF10; /*low l1t coord of 
FlObutton*/ 
eee UR? Oper URE TOS /*upert coords of 
Fl0button*/ 
break; 
default: break; 
} /*end switch*/ 
bar(&x1,&y1,&x2,&y2); /*turn new command button on*/ 
sw=0; /*Q=o0ff*/ 
setxor (&Sw); /*turn off exclusive-or mode*/ 
Switch (on) /*selects function*/ 
{ 
case l: on=flmode(); 
break; 
case 2: on=f2add(); 
break; 
case 3: on=f3delete(); 
break; 
case 4: on=f4change (); 
break; 
case 5: on=f£5find(); 
break; 
case 6: on=f6move () ; 
break; 
case 7: on=f7load(); 
break; 
case 8: on=f8save(); 
break; 
case 9: on=f9dbms () ; 
break; 


Ju 


MOI 
case 10: on=f10quit(); 
break; 
default: closegraphics(); 
exie(stacusie 
break; 
} /*end switch*/ 


} /*while true*/ 


} /*end main*/ 
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* 


* 


* 


* 


#include 


Name: 
EuUnbeCOsc- 
Author: 
Date: 


scrngen () 


{ 


static 


static 


static 


static 


Static 


static 


static 


Static 


static 


static 


Static 


static 


static 


static 


static 


Static 


static 


static 


static 


Sscrn ve 
to create the background screen for Intuition 
David D. 0" Dell 
15 December 1987 
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Tinewy,t . 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


char 


h®" 


devicel [] 


device2 [] 


device3[] 


device4[] 


tivelel [J 


title2 [] 


title3[] 


title4[] 


title5[] 


button [} 


Bucecons |} 


Duweon > |} 


buttoné4 [] 


buttons |} 


buUtEGemEel | 


DUGEOn? [ | 


buttons [] 


button9g[] 


button 0 [] 


ll 


ll 


ll 


UI 


ll 


ll 


ll 


HT 


"HALOIBM.DEV"; 


"“HALOIBMG.DEV"; 


"HALOIBME. DEV"; 


"HALOSIGM.DEV"; 


WEYPE: "; 
"NAME: "; 
"ROW: *; 
meoil: ', 
"COMMAND 


"Fie Mode -“s 


Paoeadd.) "; 


i 3 8 
2 a Gee A 
Lown ima 
"EosMove ™; 
VE Vioad) =; 
"F8 Save "; 


HE OD BMS "; 


= PLO Out’; 


7.9 


/*CGA raster dev*/ 
/*generic dev*/ 
/*EGA raszer dev*/ 
/*Sigma 400 dev*/ 


/*screen titles*/ 


BULTONS:, 


/*command button 
jabels*/ 


* 


* 


* 


* 


Static chee 


static char 


static char 


static char 


Static7char 


Static char 


static char 


float x1, 


floats ex; 


ne ohe 


DG he 


te 


ine 


be gue 


Tat 


nt 


Ine 


TA 


Tt 


BEE gh 


Ine 


int 


TA 


Joh 


Status, 


zconrty 


icon2[] = 


Leon>| | 


icon4[] 


LCOnS |) = 


1¢0n6([)] = 


icon7[] = 


Vinee, ven 


Ey 


LOW, “COL; 


ae 


COLOLE, 


mode; 


style; 


foreground; 


border; 


TCONnCcOLlOor;: 


palette; 


index; 
dev; 
height; 
width; 


Pach, 


textmode; 


NDE: 


Ll Ge : 


SA 


A] Vay W s 


Mh ea 
bd Bet 


vM " & 


/xicon labels-primitive 
entity*/ 


/*compound entity*/ 
/tattribute element*/ 


/*variable attribute 
element*/ 


/xfunction element <7 
/*test element *, 


/*module* / 


/*xcoordinate variables. 


/*xtext coordinate variables*/ 


/*zero-normal program termination*/ 


/*location of cursor on text 


screen*/ 


/*loop variable*/ 


/*color and hatchstyle*/ 


/*graphics mode*/ 


/*foreground color*/ 


/*border color*/ 


/*display color of icon*/ 


/*palette number*/ 


/*color index for EGA dev*/ 


/*type of graphics card selected*/ 


/*dot text heighte+7 


/*dot texte widenc 7 


/*dot text display direction*/ 


/*dot text display mode*/ 


Hit cent LOreground, Po dometext £Oreground color* / 


int textbackground; podeu text background color/ 
[Re saa x / 
status=0; /*normal program termination status*/ 
dev=devmenu () ; /*display menu and get graphics device*/ 
if (dev==1) /*set graphics device and mode*/ 
{ 
setdev (devicel); /*IBM CGA device*/ 
mode=1; /*640 x 200 - 2 colors*/ 
foreground=WHITE; /*set foreground color*/ 
palette=0; /*set unused dummy value in palette*/ 
setipal(&foreground, &palette); /*set IBM palette*/ 
} 
else if (dev==2) 
{ 
setdev (device2) ; /*IBM generic CGA device*/ 
mode=1; /*640 x 200 - 2 colors*/ 
foreground=WHITE; /*set foreground color*/ 
palette=0; /*set unused dummy value in palette*/ 
setipal (&foreground, &palette); /*set IBM palette*/ 
} 
else if (dev==3) 
{ 
setdev (device3) ; /*IBM EGA device*/ 
mode=4; 7*640 x 385 — 16 colors*/ 
for(i=0; i<=15; itt) 
{ 
index=i; VeGor thas EGAmcolorsindex. 247 
Colors; /*this is the color.*/ 
Setxpal (&index, &color); /xset the EGA palette*/ 
jee send fort, 
} 
else if (dev==4) 
{ 
setdev (device4) ; /*Sigma Designs 400 device*/ 
mode=3; 7640 22400 = Loecolors*/ 
border=BLACK; /*set border color*/ 
palette=0; /*set unused dummy palette value*/ 
setipal(&border, &palette); 
} 
else if (dev==5) 


clearscn(); /*clear the text screen*/ 
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row=0; col=0; 
Curlocate (row, col) - 
exit (status) ; 

} /*end if-else*/ 


initgraphics (&mode) ; 


KI1L=WXMIN; yl=WYMIN; x2=WXMAX; 
setworld (Gel, Syl) &22 eee) 
if ((dev==1) || (dev==2) ) 


heigne=ISxITHT; 
else 

height=(2*TEXTHT) ; 
width=TEXTWD; 
path=HORIZONTAL; 


textmode=NOBORDER; 
settext (&height, &width, 


COLOr=WHITE; 
setcolor (6GolOEr) ; 


xX1=XLLSTATUS; 


x2=XURSTATUS; y2=YURSTATUS; 


DOX(exX1 VeVi, “&x2, sy). 
x1=XLLROW; y1=YLLROW; 
X2=XURROW; y2=YURROW; 


DOz(&K1P 16Y 1, 9 Se2, &YV2)5 


X1L=XLLCOL; y1l=YLLCOL; 
X2=XURCOL; y2=YURCOL; 
DOXx (G1 evil bz, wey): 


x1=XLLCMDHDR; 
x2=XURCMDHDR; 
DOs (x1, «yiF 


&X2, &Y2); 


x1=XLLDIALOG; 
x2=XURDIALOG; 
box (&xi, 76yi, 


GX2 5 GV 2); 


&path, 


y 1=YLLSTATUS; 


yl=YLLCMDHDR; 
y2=YURCMDHDR; 


y1=YLLDIALOG; 


y2=YURDIALOG; 


/*upper left corner of screen*/ 
/*move cursor*/ 
/*terminate program*/ 


/*initialize graphics mode and 
clear the graphics screen*/ 


y2=WYMAX; 
/*set world coord system*/ 


/*if two color mode*/ 


/*if 16 Color mode = 
/*text width in pixels*/ 
/*text display direction*/ 


/*text display mode*/ 
&textmode) ; /*set 
attributes*/ 


/*set active drawing color*/ 


/*low Ite ecoord omeeLalLiue box*/ 
/*up rt coords of status) bora 
/*draw status box*/ 


row box*/ 
row box*/ 


{/*tilow Le “coord of 
/*Up Tt coords of 
/*draw row box*/ 


box*/ 
box* / 


col 
Col 


/*low lt coordmesr 
/*ap Et iccondsme er 
/*draw col box*/ 
/*low 1t coord of cmd hdr*/ 
/*up rt coords ofsemdmnan, 
/*draw commands header*/ 

/*low 1t coord of diallequbo;~7 
/*xup rt coords oOfsditalleg bex 


/*draw dialog box*/ 
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if ((dev==1) || (dev==2)) 


{ 


style=DITHERED; 


sethatchstyle (&style) ; 


else 


color=GREY; 


setcolor (&cColor) ; 


} /xend if-else*/ 


ci—AGLICONS; yi=rLLICONs, 
x2=XURICONS; y2=YURICONS; 


bar(&xl, &yl, &x2, 


&y2); 


if ((dev==3) {| (dev==4)) 


{ 
color=BROWN; 


Setcolor (eccolor) > 


else 


style=SOLID; 


sethatchstyle (&style); 


color=BLACK; 


setcolor(&color); 


} /*end if-else*/ 


x1=XLLBUTTONS; yl=YLLBUTTONS; 


x2=XURBUTTONS; y2=YURBUTTONS; 


bar(&xl, &yl, &x2, 


CoLor=WHITE; 
setcolor (&color); 


&y2); 


x1=XLLWORK; y1=YLLWORK; 
x2=XURWORK; y2=YURWORK; 


bar(&xXl, &yl, &x2, 


X1=XLLPE; y1l=YLLPE; 
x2=XURPE; y2=YURPE; 
Doak l, &Vl, &xX2, 


x1=XLLCE; y1l=YLLCE; 
XZ2=XURCE; y2=YURCE; 
BOx(&xl, G&Yl, &xX2, 


xX1=XLLA; y1l=YLLA; 
x2=XURA; y2=YURA; 
box(&xX1, &yl, &x2, 


Sic ae 


GyV2Z): 


&y2); 


&Y2); 


Jt EwO.GOlor mode*/ 


/*creates GREY color*/ 
/*set active hatch style*/ 


/*if 16 color mode*/ 


/*set active drawing color*/ 


Towel li necoorade or Leon area * / 
Pup remcoenas Of icon area*/ 
/ “draw 1Gomearea*, 


/ Tt no meolorr mode */ 


/*set active drawing color*/ 


/*if two color mode*/ 


/*set active hatch style*/ 


/*set active drawing color*/ 


/*low lt coords button area*/ 
/*up rt coord of button area*/ 


/*draw button area*/ 


/*set active drawing color*/ 


/*low lt coord of workspace*/ 
/*up rt coords of workspace*/ 
/xdraw workspace*/ 


/*low 1t coord of PE area*/ 
/*up rt coords of PE area*/ 
/x*draw PE frame*/ 


/*low 1t coord of CE area*/ 
(up rt Coords of Ch area*/ 
/*draw CE frame*/ 


Vtlow le teeoreror A arcat/ 
J port: Cooraseore kh area*/ 
/*xdraw A frame*/ 
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/*low Lt coord of VAvareaa 
/*up rt coords of VA area*/ 


x1=XLLVA; y1=YLLVA; 
K2=XURVA; y2=YURVA; 


box(&1l, &yl, &x2, &y2); /*draw VA frame*/ 

x1=XLLF; y1l=YLLF; /*xlow 1t coord of F area*/ 
A2=XURF; y2=YURF; /*up rt COords eo memeareaa: 
DOx (G21 yey hee aye ee /*draw F frame*/ 

AI=XLLT; -yil=YLLT; /*low 1t coord@ef T area 
*x2=XURT; y2=YURT; /*up rt coords Of @ianeads 
box(&xl, &y1l, &x2,, &y2); /*draw T frame*/ 

x1=XLLM; y1l=YLLM; /*low It coord cf Marea, 
x2=XURM; y2=YURM; /*up rt coords of M area*/ 
box (6x1, éy1y Excess 2) /*draw M frame*/ 

HI=XLLE 1; “yi=YELE 1; /*low lt coord Of Eil@bucten 
x2=XURF1; y2=YURF1; /*up rt coords of Fl butten 
box (Sel SVL, eae, Gye) /*xdraw Fl frame*/ 

xl=XLLFE2; y1=YLLF2; /*low 1t coord of F2 button*/ 
x2=KURE 2+ vy2=YURF2; /*up rt coords of B20buttcen.. 
bOx (&x Peay Le Ske; Sve): /xdraw F2 frame*/ 

x1=XLLF3; yl=YLLF3; /*low lt coord” of F3aebneeron. 
x2=XURF3; y2=YURF3; /*up rt ccords of Pambuceens| 
box(6xl, 6yl, &x2; <&y2)- /*draw F3 frame*/ 

<1=XLLF4; y1l=YLLF4; /*low 1t coord of £4 buttons) 
x2=XURF4; y2=YURF4; /*up rt coords cf F4 butcone: 
box (6x) sy Ll, G2," byl): /*draw F4 frame*/ 

x1=XLLF5; y1l=YLLF5; /*low 1t coord of FSebucttone, 
x2=XURF5; y2=YURFS; /*up rt coords of F5 button, 
box(&xK1l, &yl, &x2, &y2); /xdraw FS frame*/ 

x1=XLLF6; y1l=YLLF6; /*low 1t coord of FesbUtEon~, 
x2=XURF6; y2=YURF6; /*xup rt coords cf Fosbucecna 
bOox(&kl, &yl, &x2, G2); /*xdraw F6 frame*/ 

<1=XLLF7; yl=YLLF7; /*low lt coord CE Fimputeonm: 
*x2=XURF7; y2=YURF7; /*up rt coords of F7 buGeenw, 
box(&xl, &yl, &x2, &y2); /*draw F7 frame*/ 

x1=XLLF8; y1l=YLLF8; /*low lt coord Gf Fo ebugeem 
x2=XURF8; y2=YURF8; /*up rt coords Of FS) Sutter. 
bOx (&x1) oSy lec, ey 2 /*xdraw F8 frame*/ 

x1=XLLF9; y1l=YLLF9; /*low 1t coord of E99 butecnae 
K2=XURF9; y2=YURF9; /*up ct coords of FF? bpteeme 
box(G&zl, 6Yyly ene ay 2) /*draw FY frame*/ 
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X1=XLLF10; y1l=YLLF10; / lowe lemeoord Of F10 button* / 
m2—XURE LO; y2=YURF 10; ,-Upeseeaeoords Of F1Q button*/ 
bomtaxl,  syl, exc, &Y2); /*draw F10 frame*/ 
textforeground=WHITE; textbackground=BLACK; /*dot text 
colors*/ 
settextclr(&textforeground, &textbackground); /*set 


colors */ 


tx=XLLSTATUS+0.27 ty=YLLSTATUS+0.05; /*text cursor coords*/ 


movtcurabs(&tx, &ty); /*move text cursor*/ 
Eext (t1tilely; /*label for type of 
model * / 


tx=XLLSTATUS+4.0; ty=YLLSTATUS+0.05; /*text cursor coords*/ 


movtcurabs (&tx, &ty); /*move text cursor*/ 
text (title2) ; /*label for name of 

model */ 
tx=XLLROW+0.2; ty=YLLROW+0.1; PP GeCxePeuLsor coords </ 
movtcurabs (&tx, &ty); /*move text cursor*/ 
text (title3); /*row label*/ 
£x=KLLCOL+0.2; ty=YLLCOL+0.1; /*text cursor coords*/ 
movtcurabs (&tx, &ty); /*move text cursor*/ 
Sexe (titled) >: /*column label*/ 


tx=XLLCMDHDR+0.2; ty=YLLCMDHDR+0.05; /*text cursor coords*/ 


movtcurabs (&tx, &ty); /*move text cursor*/ 
text (titleS); /*command header 
label*/ 
if ((dev==3) || (dev==4) ) /*if 16 color mode*/ 
textbackground=BROWN; 
else /*if two color mode*/ 


textbackground=BLACK; 


tx=XLLF1+0.1; ty=YLLF1+0.05; jrtext Curso coords </ 
movtcurabs (&tx, &ty); /*move text cursor*/ 
Bert (Dutton. ) > /*F1 label*/ 
tx=XLLF2+0.1; ty=YLLF2+0.05; pre cE CULSOr COOrds*/ 
movtcurabs (&tx, &ty); /xmove text cursor*/ 
Box hon2)) ; j A aioe iit) 
tx=XLLF3+0.1; ty=YLLF3+0.05; jonelomic obasthene tseley clelonaas 
movtcurabs (&tx, &ty); /*move text cursor*/ 
text (button3) ; aoe Label * / 
tx=XLLF4+0.1; ty=YLLF4+0.05; /*text cursor coords*/ 
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MOVECURADS (Stk Gey). 
text (button4) ; 


CA=XULE SBOE, Gy —V obo. 0S, 


movtcurabs(&tx, &ty); 
text (buttonS5) ; 


EX=XLEPGTO. 1; tCy=vELPot0. 05; 


movtcurabs(&tx, &ty); 
text (buctonse); 


KRIALLF SOC; ty Yer, +0705, 


movtcurabs(&tx, &ty); 
text (buceEtens), 


A=XLLFO+O; ls GCy=rELre+0.05; 


movtcurabs(&tx, &ty); 
text (buttone):: 


tx=XLLF9+0.1; ty=YLLF9+0.05; 


mOVECUraADS (GU, eaty) > 
text (button) 


Ex=AL EEO, Cy — Eur 1040.05, 


movtcurabs (&tx, &ty); 
text (DuUcEGnLO)- 


iconcolor=GREEN; 
xT—=KLGEE;  yl-YELPe; 


pe_icon(ai yl tconcolor), 


/*move text cursor*/ 
/*F4 label*/ 


/*text Cursor coords, 
/*move text cursor*/ 
/*F5 label*/ 


/*text cursor coords*/ 
/*move text cursor*/ 
/*F6 label*/ 


/*text cursor coords*/ 
/*move text cursor*/ 
/*F7 label*/ 


/*text cursor coords*/ 
/*xmove text cursor*/ 
/*F8 label*/ 


/*text cursor coords*/ 
/*move text cursor*/ 
/*F9 label*/ 


/*text cursor coords*/ 
/*move text cursor*/ 
/*F10 label*/ 


/*primitive entity is 
green*/ 

/xlower left coords of icon 
area*/ 

/*draw primitive entity*/ 


textforeground=BLACK; textbackground=iconcolor; /*dot text 


settextclr (&étext foreground, 
tx=xl+0 <45- eye 0.25; 


movtcurabs (&tx, .&ty) |; 
text (icon!) ;: 


iconcolor=BROWN; 
xX1=XLLCE; yl=YLLCE; 


ecenicon{xl) Heonco lor); 


colors*/ 


&textbackground); /*set 


colors*/ 
/*primitive entity label 
coords*/ 
/*move text cursor*/ 
/*label primitive entity*/ 


/xcompound entity is 
brown*/ 

/*lower left coords Gimaeen 
area*/ 

/*draw compound entity*/ 


textforeground=BLACK; textbackground=iconcolor; /*dot text 


settextclr (&textforeground, 


colors*/ 


&textbackground) ; /*set 


colors*/ 


Cal On | etev—Vi +O 25; /xcompound entity label 


coords* / 
movtcurabs (&tx, &ty); /*move text cursor*/ 
Petuaeonz) = /*label compound entity*/ 
iconcolor=CYAN; /*attribute elemet is 
cyan*/ 
x1=XLLA; y1l=YLLA; /*lower left coords of icon 
area*/ 
olieanikel, yi etconcolor); /*draw attribute element*/ 


textforeground=BLACK; textbackground=iconcolor; /*dot tex 


colors*/ 
settextclr(&textforeground, &textbackground) ; /*set 
colors*/ 
ean l tO. 455) Cy=yl+0225; /*attribute element label 
coords*/ 
movtcurabs(&tx, &ty); / *MOWe Bees emeCUursor=/ 
text (icon3); /*label attribute element*/ 
iconcolor=BLUE; /*variable attribute is 
blue*/ 
x1=XLLVA; y1l=YLLVA; /*lower left coords of icon 
area*/ . 
Vid COM(cl ) ieee omeed Or) ; /*xdraw variable attribute 


element* / 


textforeground=BLACK; textbackground=iconcolor; /*dot text 


Cellonrs*/ 
settextclr(é&textforeground, &textbackground) ; /xset 
colors*/ 
mex 0..4 ; ty=yi+0 . 25; /*variable attribute label 
GQords”/ 
movtcurabs (&tx, &ty); /*move text cursor*/ 
text (icon4); /*label variable attribute 
element*/ 
iconcolor=YELLOW; /*function element is 
yellow*/ 
*x1=XLLF; y1l=YLLF; /SNOWer lekteGoords Of icon 
area*/ 
percon(xl, yl, 1concolor) ; /*draw function element*/ 
textforeground=BLACK; textbackground=iconcolor; /*dot text 
colors*/ 
settextclr(é&textforeground, &textbackground) ; /*set 
colors*/ 
tx=x1+0.45; ty=y1+0.2; /*function element label 
coords*/ 
movtcurabs(&tx, &ty); Move Gee tewcoirsor® / 
text (icon5) ; /*label function element*/ 
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} 


iconcolor=RED; /*test element is red*/ 


xl=XEi ey b= vie, /*lower left vceords ofeicor 
area*/ 
t icon (xlyevaer icomcolor); /*draw test element*/ 


textforeground=BLACK; textbackground=iconcolor; /*dot text 


colors*/ 
settextclr (&textforeground, &textbackground) ; / = Sele 
colors*/ 
ta=n1 1054S) Gy — 7) Oe, /*test element label 
coords*/ 
movtcurabs(&tx, &ty); /*move text cursor*/ 
text (icons) > /*label test element*/ 
iconcolor=MAGENTA; /*module is magenta*/ 
x1=XLLM; y1=YLLM; /*lower left coords of icon 
area*/ 
mM Conte ey le Oncotor) /*draw module icon*/ 


textforeground=BLACK; textbackground=iconcolor; /*dot text 


colors*/ 
settextclr(&textforeground, &textbackground) ; /*set 
colorss, 
€x=x140265; ty=v1l1¢eeco, /*module label coords*/ 
movtcurabs(&tx, &ty); /*move text cursor*/ 
text (icon7); /*label module*/ 
deltcur(); /*turn off text curser, 
text foreground=WHITE; textbackground=BLACK; /*det rex 
colors*7 


settextclr(&textforeground, &textbackground); /*set colors*/ 


*1=0.2; y1l=0.35; /*coords of line 1 of diallog be7. 
movtcurabs (&xl, &y1); /*move text cursor to Pine si 


/*end scrngen*/ 
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* 
* 
* 
* 


* 


Name : Met c 
Purpose: to print a menu for user to select the type of 


graphics device installed. 


AUENOLF: David D..O* Dell 
Date: 21 December 1987 


* 


+ + 


* 


Kk RR KR RR KK RK RK RR RR RK KR RR KR RK KR RK RR KK kK RR KR RR KR KR RK KR RK RK RR KK RR KR / 


devmenu () 


{ 


screen* / 


ima rows col: jetecaeon Of “cursor on text 

int dev; /*type of graphics card selected*/ 
clearscn(); /xclear the text screen*/ 

row=6; col=1; /*center menu on screen*/ 

curlocate (row,col); /*move cursor*/ 

eugabiqiend 


("363s\n%64s\n%64s\n%64s\nt64s\ns64s\nt64s\nt645s\nt64s\ns64s 


\nz64s", 
ee eee REE AK KRRKRK KERR RAR KKK 


Wx * i 
A 


ie oe leces tne Gqraphics device for your system: *", 


Tt * xT 

f 
i ile COlLoOr Graphics Adapter oak 
es 2. Generic CGA-type display card gt ie 
ae 3. IBM Enhanced Graphics Adapter alee 
i= 4. Sigma Designs Color 400 aaa 
ahd se Ob plas eee 
Ws aie 


oe LAK AK AAA KARR KAKA RAKRKARKKKRAKRERKKAKKKKKKN) : 


peener (™\nA\ne28s", "Your cheice?") ; 
Seana ('+d™ édev) : /*get user’s selection*/ 
while ((dev<l) |{ (dev>5)) 


{ 


printf ("Sorry, your selection must be between 1 and 
Sn) 

PEeimek ("Please re-enter your choice."); 

Sscant( ta" ,<dev) ; /*get the new selection*/ 


} /*endwhile*/ 


return (dev); 


/x*end devmenu*/ 
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Cclearscn() 


[RRR RK KR RK RR KK kk kkk KO RR kk kk Rk RK 


* Function: clear the entire text screen to background color * 
x Modified £Erom blankse £unction contatnecd mene * 
* Radcliffe, Robert A. and Raab, Thomas J. 1986. * 
* DATA HANDLING UTILITIES IN C. Berkeley, CA.: as 
* Spee ine. * 
ek ke ke kk kk kk kk ek kek kek ke kk kk kk ke kk kk kk kk kk 


typedef char byte; 
typedef union {int 12; long int) 14 ee: 


struct XREG 
{ 

SNOLrE, ax, Ox, Ch Gees) ela 
ine 


SESPUCE /TAREG 
{ 

byte al,ah,b1l, bh ,el ch, daa. 
b; 


union REGS 

{ 
SEPFUCE AREG x; 
SEEUCE HREG hh; 


Union REGS “VE OL; 
irene —s0cc0 6. /*interrupt number to scroll page up*/ 


iyo heals—0; /*set registers to scroll entire screen*/ 

iz hh. Che —20; /*xfrom top left (0,0) */ 

Lean ee le —w oO; 

ie ohean = 925-7 /*to bottom right (Zemcon 

Pe he dl: =, 60; 

ir.h.bh = 0x07; /*scroll white on black*/ 

int86(0x10, &ir, &or); /*Lattice interrupt call to BIOS 
CRT*/ 


} /*end clearscn*/ 
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eEnrlocate (row,col) 
mmc row, Col: 


DR ak ha har aA eee Se ee XR RP RRA RAR KER RRR KKKK KKEREKE KK 


* 


* 


* 


* 


Buneelonl: Hecate cunsor at Low ana Column om text screen * 
Medifrted from setcre function Contained in: * 
Radcliffe, Robert A. and Raab, Thomas J. 1986. * 
DATA HeaND LING UTEEITIBS IN €. Berkeley, CA.: SYBEX Inc. * 


Bek kk kk Rk kk tk KK KK TOK KK TOK KOK OK IO OK KK KR KR RK OK Ro Re / 


} 


Eypedef char byte; 
EvoOcdeteun vom inemiec Long intwi4;) INT; 


struct XREG 
{ 
Shoptemaxt, Ox Gooada S11, dis 


Hee 


Struct “HREG 
{ 

Dyte —al,an,oweennc., ch, dl,dh; 
Ik 


union REGS 


{ 
struct XREG x; 
Struct HREG nN; 


mnron REGS 2n, Or; 


Br h.ah = Ox02; /*interrupt number to set cursor 
position*/ 

ie. N. Oliwe= Oe 

Ze on.an== row; 

meen. ake = col; 

moutoo(OclO;msir, &£0r); /*Lattice interrupt call to BIOS 
CRT*/ 


/*end curlocate*/ 
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* 
* 
* 


Name: 


PUEPOSe: 


AUEHGr: 
Date: 


icons.c 


David De Opell 
16 December 1987 


to create the icons used by Intuition 


* 


* 


* 


* 


KKH KKKKEKKKKKKKKEKEKREKEKEKEKEKREKKEKEKREKKEKKKKREKKKKKKKKKKKKKKKKKKKKKK / 


#include 
#include 


re 


iy @ Ue) i cates gin 


“Ex Struce sm: 


/*all icons are described in terms of world coordinates*/ 


pe 1cen (<7) oy, 
float 
int 1Veonecolrer: 


{ 


} 


LEONCOLCE) 
prarnee : 


Eloat al, AZ; ey ey ce 


setcolor (&iconcolor) ; 


A1l=x+0-2; vyil@wytO ava, 


x2=xt+0.8; Ve-y+t0e 65; 


bar (&x1, 6y1, -&22, &Y2); 


iconcolor=BLACK; 
setcolor (&iconcolor); 


box (4x1, Syl Gx2,—6y2)? 


J=end pel icon 


va_icon(x, y, 
EVoat sa, 
Int -1Concolor, 


{ 


xarray(Q)=x+0.6; yarray[0)]=yt+0.05; 


ZTeoncolor) 
VY? 


float xarray[8]; 
float yarray([8]); 
EVOac sx, Vi; 
Ion te erie 


n=8; 


/*create primitive entity icon*/ 
/*lower left coord of icon area*/ 
/*®CcOlOrE Of Acons, 


/*coords of ween, 
/*set icon color*/ 


/*lower left coords of 
icon*/ 

/*upper right coord of 
icon*/ 

/*draw primitive entity 
VGonsy, 

/xchange colors for 
outline*/ 


/*set outline color*/ 


/*draw outline*/ 


/*create compound entity icon*/ 
/*lower left coord of icon area*/ 
/*COLOrTGr conway 


/*x-coords of icon*/ 
/*y-coords of icon*/ 


/*coords 
/*number 


/*number 


of first verte.<,) 
of vertices] 


of vertices*/ 


/*coords of 
vertices*/ 


xarray[l1]=<+0,8; yarray(1)—=0.2-. 


xarray[2]=x+0.8; 


aa 


yarray[2]J=yt0.45; 


xarray(3]=x+0.6; yarray(3])=yt+0.695; 

xarray[(4])=x+0.4; yarray[4]=y+0.65; 

xarray(5)=x+0.2; yarray[5]=yt+0.45; 

xarray(6]=x+0.2; yarray[6]=yt0.25; 

xarray(7])=x+0.4; yarray[7]=y+0.05; 

x1=x+0.4; yl=y+0.05; /*Geeorauot first vertex*/ 

movabs(&x1l, &yl); /*move graphics cursor to 

vertex*/ 
Polyvtabs (xarray, = varray,wen, &iconcolor); /*draw 
icon*/ 

iconcolor=BLACK; /*change colors for aut Line* / 

setcolor (&iconcolor); /*set outline color*/ 

*x1=x+0.4; yl=yt+0.05; /*coord of first vertex*/ 

movabs(&xl, &yl); /*move graphics cursor to 
vertex*/ 

polylnabs(xarray, yarray, &n); /*draw outline*/ 


} 


/*end va icon / 


aeacon(x, yy iconcolor) 
lc temo e, 
int LcEemeolor; 
{ 
PlOae Al, “yl; 
float radius; 


Peereate attribute element icon*/ 
/*lower left coord of icon area*/ 
Vrecolor Of 1Ccon*/ 


(seceorads Cf Circle center point*/ 
/r~adius, Of Circle*/ 


setcolor (&iconcolor); /*eset icon col@r*/ 

x1l=x+0.5; yl=y+0.35; /*center of circle*/ 

movabs (&xl, &yl); /*MOviesgrapnies Cursor to 
center*/ 


radius=0.25; 
fcir (&radius) ; 


/ "set ragius Of carcele* / 
/*draw attribute element 


Toon 
iconcolor=BLACK; /*change colors for 

outline*/ 
setcolor(&iconcolor); /*set outline color*/ 


Ccir(&radius); 
} 
fPgenad a_icon*/ 
mercon(x, y, 1concolor) 


EUOat A, YY; 


Mie sLCOncOlor: 


{ 


/*draw outline*/ 


/*create variable attribute 
Peon </ 

/*lower left coord of icon 
area*/ 

/*color of icon*/ 


float xarray([4]; [oma(eeicnacls lose slielesolers 


a3 


} 


float yarray[4]; /*y-coords of icon*/ 


padoye\ic “cil eet ae /*coords of first vertex*/ 
Int on /*number of vertices*/ 
n=4; /*number of vertices*/ 
xarray[(0)=x+0.8; yarray[(0)=y+0.35; /*coords of 
vertices*/ 


Harray[1lJ=x+0.5; yarray(1)=yrOgoo 
xarray(2)=x+0.2; yarray[2]=y+0.35; 
KaEray(3)=xt0.5;" yarvaylijia.- 00a, 


x1l=x+0.5; yl=yt0.05; /*coord of first vertex) 
movabs (&x1l, &yl); /*move graphics cursor to 
vertex*/ 
polyfabs (xarray, yarray, &n, &1cOncOolOr)- yy -ar-w 
eon / 
iconcolor=BLACK; /*change colersere: 
outline*/ 
setcolor(&iconcolor) ; /*set outline color*/ 
*x1=x+0.5; yl=yt+0.05; /*coord of £iESE Vertex 
movabs (&x1l, &yl); /*move graphics cursor to 
vertex*/ 
polylnabs(xarray, yarray, &n); /*draw outline*/ 


/ -end ti con, 


E teont7 yy, tconcoler) /*create function element 
icon*/ 
float sx.0: /*xlower left scoord ore com 
area*/ 
int concolor; /*COLOYr GE 1CcoOn- 
( 
Float xarnay | si: /*x-coords of icon*/ 
float vyarraytsi: /*vy-coords of tcona 
floatexiya yl /*coords of first vertex*/ 
inten, /*number of vertices*/ 
n=3; /*number of vertices*/ 


xarray[0)=x+0.8; yarray[OJ=y+0.05; /*coords of 


vertices*/ 

xarray[i)=x+0.5; yarray (lly sees. 

xarray(Z2j=x+0.2; yenray(2)—7+e ws: 

x1l=x+0.2; yl=y+0.05; /*coord of first veree. = 
movabs (&x1l, &yl); /*move graphics cursor to 

vertex*/ 
polyfabs(xarray, yarray, &M, &1¢COn-91e7 je ea 
icon*, 
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1ceonco lLor=BLACK; 
Setrcolor (Siconcolesx:); 


ei=xtO0e2- oy l=y+O.0s; 
movabs(&xl, &yl); 


polylinabs(xarray, yarray, 


} 
meend f£ icon*/ 


TCONGCOLOL) 
Yr 


eeicon(x, Y, 
£loat x, 


Lit. LeEoneoLlor, 

{ 
PO oeeat hay leo je, 
float yarray[5]; 
Ltoae. <17e yu, 
See oy 


n=5; 
xarray[0]=x+0. 


xarray[1)=x+0. 
xarray([(2]=x+0. 
xarray[3])=x+0. 
xarray([4]=x+0. 


a “ae =e 


Nh Mh OH © 


mice, yi=yrO.05; 


movabs(&xl, &yl); 


polyfabs(xarray, yarray, 


TCOnCOLer=SBoACK: 


S€ECOLOr (61CconcoLlor) ; 


x1=x+0.2; 
movabs (&xl, 


vwi=v+O. 05; 
&yl); 


polylnabs (xarray, 


} 
/*end ce_icon*/ 


Peonece lor) 
Yr 


Mevcon(x, y, 
Bloat x, 


iat LCONCOLOL: 


yarray[0)=y+0.05; 


yarray, 


/*change colors for 
outline*/ 
/*set outline color*/ 


PeeGOOEdrou GLirst) verte <*/ 
/*move graphics cursor to 
vertex*/ 


&n); /*draw outline*/ 


/*create test element icon*/ 

/*lower left coord of icon 
area*/ 

, PeEOUOreO f con® / 


/*x-coords of icon*/ 
/*y-coords of icon*/ 
/*coords of first vertex*/ 
/*number of vertices*/ 


/*number of vertices*/ 
/*coords of 
vertices*/ 


yarray [1]=y+0.35; 
yarray[2]=yt+0.65; 
yarray[3]=yt+0. 35; 
, yarray[4)=y+0.05; 


/*coord of first vertex*/ 
/*move graphics cursor to 
vertex*/ 
&iconcolor); /*draw 


TCOn*/ 


als 


/*change colors for 
outline*/ 
/*set outline color*/ 


/*coord of first vertex*/ 
/*move graphics cursor to 
vertex*/ 


nije, “draw outline */ 


/*create module icon*/ 

/*lower left coord of icon 
area*/ 

J BCOlGrrOEwLCont/ 


25 


} 


LliCae Alene, Wee ye 
Set color (41concelor): 
RLS=REOwoD, Ye U. US, 
X2=xt+1.45; y2=yt+0.65; 


bar(Gel a eyl; “@x2, vey2), 


iconcolor=BLACK; 
setcolor (€£iconcolor) ;: 
DOX(GAL Gy ly eel hr): 


x1=x+0 59; yl=y40705; 
movabs(&x1, &yl); 


H2=H0). 97 V2=y 206, 
Inabs(&x2, &y2); 


/*end m_icon*/ 


arrow (arrowcolor) 


int arEOwCcOoOLOL;: 


{ 


int ~ACcoLOr; 
float Cx, Cy, 
ElLOab. x, 
£loat Karray (3), 
float. yarray (3); 
Float 2ey le 
ince Mm, 


n=3; 


/*coords of icon*/ 
/*set icon color*/ 


/*lower left coords of 
icons, 

/*upper right eéscudmen 
icon*/ 

/*draw primitive entity 
Peon, 


/*change colors for 
outline*/ 
/*set outline color*/ 


/*draw outline*/ 


/*set start of cross line*/ 

/*move graphics cursor to 
Start.7 

/*set end of cross line*/ 

/*draw cross line*/ 


/*create directed arc arrow head*/ 


/*color Of N=curse::? 
/*coords of node ctr*/ 
/*coords of arrow tip*/ 
/*x-coords of arrow*/ 
/*y-coords of arrow*/ 
/xcoords of stem end*/ 
/*number of vertices*/ 


/*number of vertices*/ 


inghcur (&cx, &cy, &hcolor); 


y=cy-0.55; /*set tip y-coord*/ 
if(cell[active node] .out==1) /*set tip ==COcGrday 
xX=CX;> 


else 1£ (cell | acei ve) node | ove 8) 


x=ex-0.2; 


else if(cell[active_ node] .out==3) 


S=c2+022: 


else if (cell (active nede]~out——2) 
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Z=CxX- Ona 

else if(cell[active node] .out==5) 
x=Cx+0.4; 

else 


x=cxu; /*default*/ 


setcolor (&arrowcolor); 


xarray(O]J=x-0.05; yarray[0]=y-0.1; ueCOLds of 
vertices*/ 


marbay( 1) =xtOs0S:svarrvay (lj=y=0.1; 
xarray[2]=<x ; yarray([2]=y; 


movabs(&x, &y); /*move :graphics cursor to tip*/ 


polyfabs(xarray, yarray, &n, &arrowcolor); /*draw 
arrow ~ / 


mie, yl=y-052; 
Inabs (&€x1, &yl); /*draw stem*/ 


} 


/*end arrow*/ 


om 


[RRR KKK KKK RK KKK KEK KKK KKK KKK KKK KKKKKKKKKKKKK KKK KKKKKKK KK 


x Name: Uti c i 
* Purpose: contains general purpose utility subroutines i 
ie used by various programs. i 
<~) Avenon. David D. O’Dell 
* Date: 31 December 1987 id 
KKK KKKGEKEAKKKEKEKKERKKEREKKKRAKKKRRKERAKKREER EK EE RR ROR Rr ee 


include “inturesn” 
#include "exstruct.h" 


bagpoEt() 


[RRR KR RR RK KK KKK KR RK RK EKER KEK KEK KKK KK KE KKKAKKKKKKK KR 


* Function: set viewport to full screen normalized ss 
x coordinates. Do not draw border or redraw is 
m background i 


KHREKKKKKKEKKEKEKKEKKEKKEKEKKKEKKEKEKKKEKKKKKKKKKKKKKKKKKKKKKKKKKK / 


Flost. <a x2 ey ce /*graphic coordinate 
variables*/ 

int border; /*flag to draw viewport 
border*/ 

int background; /*flag for viewport 
background*/ 


*1=0.0; yl=0.0; x2=1.0; y2=1.0; /*full screen normalized 


coords* / 
border=-1; background=-1; /*no border or 
background*/ 
setviewport(&xl, &yl, &x2, &y2,&border, &background); /*set 
viewport*/ 
x1=WXMIN; yl=WYMIN; x2=WXMAX; y2=WYMAX; 
setworld(&xl, &yl, &x2, &y2); /*set world coord system*/ 


} /*endbigport*/ 


TICE lepore (>) 


[RRR KKKKKK KKK KKK KKKKEKKKEKKKKREKKKKKKKKEKKKKKKKKKKKKKKKKKKKK KEKE 


* Function: set viewport to work area only in normalized * 
is coordinates. Do not draw border or redraw a) 
background a 


Ka RR RK RK KR KKK RR KK RR KKK KKK KK KKK KKK KKK KKK KK RK KK KR KK / 


float xiv 22 /*graphic coordinate fariables=, 


ye: 


float xw, yw; /*float to normal coords*/ 


EmiimbOrder ; /*flag to draw viewport border*/ 


int background; /*flag for viewport background*/ 


Meeicignit wwe, patm,etexctmode, /*dot text attributes*/ 


xw=XLLWORK; yw=YLLWORK; /*set lower 1t corner of 
viewport */ 

mapwton (&xw, &yw, &xl, &yl); /*to lower lt corner of work 
area*/ 

xW=XURWORK ; yw=YURWORK; /xset upper rt corner of 
viewport*/ 

mapwton (&xw, &yw, &x2, &y2) ; Pe CUpGeG Gb COrner Of work 
area*/ 

border=-1; background=-1; /*no border or background*/ 


setviewport (&x1, &yl1l, &k2,&y2, &border, &background); /*set 
viewport*/ 


x1L=WXMIN; yl=WYMIN; x2=WXMAX; y2=WYMAX+2.0; 


setworld(&xl, &yl, &x2, &y2); /*set world coord system*/ 


height=TEXTHT; width=TEXTWD; path=HORIZONTAL; 


textmode=BORDER; 


} 


settext (&height, &width, &path, &textmode) ; 


/*endlittleport*/ 


Char getchr (kbchar) 
Char *kbchar; 


[KKK K KK KKK Kh Kh kkk kkk hk kk kkk hk hk kh KR KR KR KR KR KK 


* 
* 
* 
& 
* 
* 
* 


Rama Ka KKK Ka KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK 


Function: get character from keyboard without echo and 
return character by function and value. 
Modified from getchr.c contained in: 
Radcliffe, Robert A. and Raab, Thomas J. 1986. 
DATA HANDLING UTILITIES IN C. Berkeley, CA.: 
SY BEX sinc. 


ee ee ee 2 


typedef char byte; 
mypeder unzon {int i2; long int i4;} INT; 


struct XREG 
{ 
Shot. dagen, CA, Gx,S1,d1; 


Ve 


og 


SETUC saReG 
{ 

byte  al,ah,bil,bh, cl,<ch, a2, di, 
es 


union REGS 

{ 
SErTUCE AREG x; 
SEFUCE HREG i, 


[ ® een nn nn a a an a a a a nn * / 
union REGS 72-207 - 
irznh.ah = x02. /xget character for keyboard*/ 
int86(0x21, &izr, &or); /*DOS Eunction call access, 
*kpchar = Ofah-al- /*put character in kbchar*/ 


FreCuEn (Or Neal) 
} /*end getchr*/ 


decode char (sch) 
char sch 


[RRR RR RRR KKK RK KKK KKK KERR KEK KK KKK KEKE KKK KKK KKKEKKKKKK KKK KKK KKK 


* Function: check if a cursor key is pressed and update a 


= cx and cy coordinates accordingly s 
KKKKKK KKK KKK KKK ERK KK KEK RR KK KEKE RK KKK KEK KEK KK KERR KEK KK KKK KKK / 


float top _ edge, bottom_edge; /*top and bottom cursor 
limitsi*/ 

float left_edge, right_edge; /*left and right cursor 
Lim ese 

Eloat Dutton Nheighe, Duttonewiden: 

float Hhheight, hwiden, 


Staticurloatecz,cy, /*local cursor variables*/ 
int on; /*button state*/ 

Inte Neelor: /*x~hair color*/ 

on=0; /*no button selected*/ 


Dutton hergne=vURE T= vue 
button _width=XURF1-XLLF1; 
hheight=button_height/2.0; 
hwidth=button width/2.0; 


ingneub(Gcx, key sneolor); /*get postition Of = -haasn 
Cursor = 


100 


if ((sch==72) | | (sch==75) | | (sch==77) | | (sch==80) ) 


{ 


top edge = YURBUTTONS-hheight; 
bottom edge = YLLBUTTONS+hheight; 
left edge = XLLBUTTONS+hwidth; 


EY iesedsje—— 


XURBUTTONS-hwidth; 


Switch (sch) 
{ 
case 72: cy=cy+(2*hheight) ; 
Te(ey cep, edge) 
evy-top edge, 
break; 
case 75: cx=cx-~- (2*hwidth) ; 
if ( ers eme edge) 
ex—leftredge, 
break; 
Case 77! Gx=ext (2*hwidth)-; 
PE(eaz>rught edge) 
cx=right edge; 
break; 
ease 00: ee cy—cy-—(2*hheighe); 
Pe wOteon Cage) 
Gy -PoOL com eage, 
break; 
default: break; 
} /*endswitch*/ 


movhcurabs (&Cx, &cy) ; 


delhcur(); 


/*eursor up height 
iar ™/ 

/*if at top edge*/ 

/*stay there*/ 


/*cursor left width 
x-hair*/ 

/*if at left edge*/ 

/*stay there*/ 


/2eursorerrane width 
x-hair*/ 
/*if£ at right edge*/ 


po seay. here */ 


/*cursor down 
hergnc. halt =/ 

/xif at bottom 
edge*/ 

/*stay there*/ 


/*don’t show x-hair cursor*/ 


if (inside (cx, cy, XLLF1, YLLF1, XURF1, XURF1) ) 


else 


else 


else 


else 


else 


else 


on=1; 
ae(G@inside (cx, cy, XLLF2, YLLF2, XURF2Z, XURF2) ) 
on=2> 
Peemoide (Cx,Cv, XLLF 3, YLLE3, XURF3, XURF3) ) 
on=3; 
if (inside (cx, cy, XLLF4, YLLF4, XURF4, XURF4) ) 
on=4; 
Peinoude(Ca,CV, M6bh 5, VULRS, URE 5, XURFO) ) 
on=5; 
iia(rmowde (Cx, cy, XLLP6, YLLEG, XURF6, XURFS) ) 
on=6; 
eit Gee ,cy, NULh ? eobor ?, IPE? .AURE 7) ) 
on=7; 
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} 


else 


else 


else 


else 


if (inside (cx,cy, XLLF8, YLLF8, XURF8, XURF8) ) 


on=8; 


if (inside (cx, cy, XLLF9, YLLF 97 xXURFS) ee 


on=9; 


if (inside (cx, cy, XLLF10, YGLFI0, XURFiIGy ere 
on=10; 


on=0; 


/*end if sch*/ 


[RKKKKKK KKK KK KKK KKK KKK RK KK KKK KK kk kk kk kk kk kk Rk Kk 


x” FUNCEL Om: 


* 


check if a function key has been pressed as 


and return the corresponding value of ’on’. * 
wk kk kk kk kk kk kk ek kk kk kk kk kk kk kk ok kk kk kk ok kk kk kk kkk kk / 


if ((sch>=59) && (sch<=68) ) 


{ 


Switch (sch) 


{ 


Case 


case 


case 


case 


Case 


case 


59: 


60: 


61; 


62. 


63: 


64: 


on=1; 
Cx=XLLF1l+hwidth; 


cy=YLLFl+hheight; 
break; 

on=2; 
CX=XLLF2+hwidth; 


cy=YLLF2+hheight; 
break; 

on=3; 
cx=XLLF3+hwidth; 


Cy=YLLF3+hheight; 
break; 

on=4; 
Cx=XLLF4+hwidth; 


cy=YLLF4+hheight; 
break; 

on=5; 
Cx=XLLF5+hwidth; 


cy=YLLF5+hheight; 
break; 

on=6; 
cx=XLLF6+hwidth; 


cy=YLLF6é+hheight; 
break; 


Oz 


/*position x-hair 
cursor*/ 
/*in Fl button*/ 


/*position x-hair 
cursor*/ 
/*in F2 button*/ 


/*posteionm xA-Nain 
cursor*/ 
/*in F3 button*/ 


/*position x—nNare. 
cursor*/ 
/*in F4 button*/ 


/*position x-hair 
cursor*/ 
/*in FS button*/ 


/*position x-hair 
cursor*/ 


/*in F6 button*/ 


case 65: on=/7; 


€==XLLF 7/+hwidth; /*position x-hair 
cursor*/ 
Cy=YLLF7+hheight; /*in F7 button*/ 
break; 
case 66: on=8; 
Cx=XLLF8+hwidth; Peepeosteion x—hair 
cursor*/ 
Cy=YLLF8+hheight; /*in F8 button*/ 
break; 
case 67: on=9; 
Cx=XLLF9+hwidth; J*position x-hair 
@UuESOE*/ 
Cy=YLLF9+hheight; /*in F9 button*/ 
break; 
case 68: on=i10; 
Cx=XLLF10+hwidth; PaDesiwlone. halt 
Gursor*/ 
Cy=YLLF10+hheight; /*in F10 button*/ 
break; 
default: on=0; 
break; 


} /*end switch*/ 


movhcurabs (&cCx, &cy) ; 
delheur()-; 


} /*end if sch*/ 
BetuEnN (ON) ; 


} /*end decode_char*/ 


Mite 1NSide (x,y, xmMin, ymin, xmax, ymax) 
mrcat x,y: /*location of cursor*/ 
float xmin, ymin, xmax, ymax; /*boundries of bounding box*/ 


[RKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK RR KK RK RK RK KK 


meeeunction: determines if (x,y) is inside bounding box = 


determined by (xmin, ymin) —-(xmax, ymax). * 
KAR KK KKK KK KKK KR RK KKK KKK KKK KKK KK ERK KKK KKK KKK KKK KKK KKK KKK / 


{ 
1f£((xmin <= x) && (x <= xmaz) && (ymin <= y) && (y <= ymaz)) 
return (TRUE) ; /-EnEsor is inside bounding box*/ 
else 
MecuEM Rabon, “CUrSOr Is outside bounding boxz*/ 


ne 


} /*endif-else*/ 
} /*end insides 


draw _submenu (title, linel, linez, line3, line4, lines mena 
char *title; 

char *linel, *lineZ, *line3, *line4, fines, 

int *menu; 


[| & % ee eee ee heehee tee kee kkk ke kk ek kek ke kk ek ek eee ok ke 


* Function: prints submenu for selected. * 
Te keke tee ee ke ke eee ee eke etek ek kkk tk kkk keke te tt kkk ke tt tek kk ke te tek eee / 


{ 
int textforeground, textbackground; /*dot text 


ecolors= 
int =collom, /*drawing color*/ 
fleakt wie gully le eye /*coord Of popup menu 
area*/ 
float sxiassx2 Syl). sy2, /*graphic coordinates =, 
float “sta, esty. /*dot text coordimace cm, 
ehan getchr(), /*get keyboard character*/ 
define dot text (); /*set dot text attributes*/ 


text foreground=WHITE; 
textbackground=BLACK; 
settextclr (&text foreground, &textbackground) ; 


ulxSi. 0; sulysd. i; /*upper left Coord of pepupe 

irxe5 207 slrv=2.0; /*lower right coord of popup*/ 

movefrom(&ulx, &uly, &lrx,&lry,menu); /*save scrn under 
popup*/ 


color=BLACK; 
setcolor(&color); 
sxl=1.0; syl=2.0; 
Sx2=5.0; sy2=4.1; 

bar (&sxl1, &syl, &Sx2, &sy2); /*xdraw popup menu*/ 
color=WHITE; 

setcolor (&color) ; 
sxl=1. V7 Ssy i221 
Sx2=4.9; sy2=3.6; 

box (&Sx1,&syl, &Sx2, &sy2); 
sxl=l.1; syl=3.7; 
SX2=4.9; sy2=4.0; 

box (&sxl1l, &syl,&sx2,&sy2); 


StkK=2.57 (Sty=3.75, 
movtcurabs (&Stx, &sty); 
text (title); 


Stx=b25 sty =5..55> 
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movtcurabs (&stx,&sty); 
text (linel) ; 


Stx=leo eso ty—3-05, 
movtcurabs (&stx, &sty); 
text (line2) ; 


stx=1.5; sty=2.75; 
movtcurabs (&stx, &sty) ; 
text (line3); 


Stx=1.5; sty=2.45; 
movtcurabs (&stx,&sty); 
text (Line4) ; 


Stcs—l. 5,) Sty—2.15; 
movtcurabs (&stx,&sty); 
text (line5) ; 


aeltcuri(); 


} /*end draw submenu*/ 


Bestore under menu (menu) 
int *menu; 
[RR KKK KKK KKK KKEKKKKK KKK K KKK KK KKK KKK KK RK RK KKK RR KK RR KK RK RK RK 


er unccion: restore screen area under submenu. * 


He ke ke tk kkk kkk kt kk tk kk kk te ek eke eke / 


{ 


PACE MILs 7 Blsiee sabe aligter /*popup menu coordinates*/ 
miQat Sales yiye SXt2, “Ssyz2, /*graphics coordinates*/ 
int mode; /*restore mode*/ 

arate COLOK; /*current drawing color*/ 


COLOr=WHITE; 

SetColor scolor) ? 
eect=17,0, sy lt=2.0; 
Ssx2=5.0; sy2=4.0; 


bar (&sxl, &syl, &Sx2, &sy2) ; /*draw popup menu*/ 

ulx=1.0; uly=4.1; / Uppermlettmccord Of popup” / 
fexr=5.0; lry=2.0; / NOwWSCLecignt Coord Of popup*/ 
mode=1; /*set restore to overwrite*/ 


moveto (&ulx, &uly,menu, &mode); /*restore scrn under popup*/ 


} /*end Beseenemungder men / 


iO) 


define dererezty, 


[RRR KKK KK RK RK KKK RK KE KEKE KKK KKK KKK KK KKK KK KKK KKK KARR KKK KK 


* FUNCELON: * —sets dot texu aetribuce ce = 
KKK aR KR KKK KK RRR KKK KKK KKK KKKKKKKEK KKK KKK KKK RK KK KK KKK KR RK RK KK / 
{ 

int device; /*graphics device*/ 

int height, width, path, textmode; /*dot text attributes*/ 


inqdev (&device) ; /*get device number installed*/ 
if ((device==1) |] | (device==26) ) 

height=TEXTHT; 
else 


height=(2*TEXTHT) ; 


width=TEXTWD; 

path=HORIZONTAL; 

textmode=BORDER; 

settext (&height, &width, &path, &textmode) ; 


} /*define dot text*/ 


write error(error number) ; 
[kkk kKkk kkk KKK KR Kk KKK Kk KKK KKK KKK RK RK KKK KKK KAR KKK KKK KK KK KKK KK KK 


* Function: prints error message pointed to by error numbers. 
OK RI RR Ok kk ok kk kk kk kk kk kk / 


{ 


int dev, device; /*graphics device*/ 
int textforeground,textbackground; /*dot text colors*/ 
float stx, sty; /*dot text coordinates*/ 


Static char errorl[]= 
"Sorry, selection out of range. Please re-enuae 
Snovee. "7, 


define dot text (); /*set dot text attributes*/ 


dev=inqdev (&device) ; /*get graphics device number*/ 
if ( (dev==1) | | (dev==26) ) 
text foreground=WHITE; 
else 
text foreground=RED; 
textbackground=BLACK; 
settextclr (&text foreground, &textbackground) ; 


Clear sataltogubo. |). 
Stx=0. 2:."sty—0.35; 


movtcurabs (&st=,&sty); 
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Soieecuyerror mumber) 
{ 
case l: text(errorl); 
break; 
default: break; 
} /*end switch*/ 


mee *~end write error*/ 


clear dialog box() 
MRERDRSE EAD See ee re A AK KA KK AK REAR KARR ERR XX 


Ser UncCtioOn: Clear @€rror statement from dialog box. m 


KKKKKKKKKKKKKKK KKK KK KKK KKK KKK KKK KKK RK RK KR KKK KKK KKK KR RK RK KKK KKK / 


{ 


tot color; /*drawing color*/ 
mpoat xl, Yl ascpeae /xgraphics coordinates*/ 
color=BLACK; /*set drawing color to black*/ 


Setcolor(&color) ; 


x1=XLLDIALOG+0.045; y1l=YLLDIALOG+0.045; 
xX2=XURDIALOG-0.055; y2=YURDIALOG-0.055; 
bar (&x1, &y1, &x2, &y2); /*overwrite dialog box*/ 


color=WHITE; 
setcolor(&color); 


} /*end clear dialog box*/ 


Clear status box() 
[RKKKKKKKKKK KKK KKK KKK kkk hhh kkk hh kh kkk kh kh kk kk kkk hk kK KR KK KK 


femeruncction: clear status box of all text. * 


Kk KK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KR KKK KK KK RR KK RK KK RK KK RK / 


{ 


nie Colon; /*xdrawing color*/ 
Eloatxl, Vl, x2, y2> /*graphics coordinates*/ 
color=BLACK; /*set drawing color to black*/ 


SetColor (&colcr) ; 


X1=XLLSTATUS+0.8; yl=YLLSTATUS+0.05; 
xX2=XURSTATUS-2.2; y2=YURSTATUS-0.05; 
Par(sx1,&V1, 6x2, &Y2)> /*toverwrite type*/ 


XL=XLLSTATUS+4.6; yl=YLLSTATUS+0.05; 

P2—-AURSEATUS=-O.5; y2Z=YURSTATUS=-0.05; 

bar (&41, &y1, &K2, &y2) ; /*overwrite name*/ 
} /*end clear status box*/ 


ILO) 7) 


write dialog(messagel,message2) 

char *messagel, *message2; 

[RRR KE KK KKK RK KR KR RK KR KR KKK KEK KKK KK KK KK KKK KR KKK KK 
* Function: write two line message in dialog box at bottom of * 


* screen. * 
KHKKKEKKKREKEKREKKKKKKKKEKKKKKEKKKKKKKKKKKKEKKKKKEKREEK RRR AA KA RK ee 


int textforeground, textbackground; /*dot, text icolorcm 
float €:.0cy. /*dot text coordinates*/ 
define dot text(); /*set dot text attributes*/ 


text foreground=WHITE; 
textbackground=BLACK; 
settextclr (&text foreground, &textbackground) ; 


Clear Gialog box ()7, 


tx=XLLDIALOG+0.2; ty=YLLDIALOG+0.3; /*xwrite firstelines 
movtcurabs (&tx, &ty); 
text (messagel); 


tx=XLLDIALOG+0.2; ty=YLLDIALOG+0.05; /*write second line*/ 
movtcurabs (&tx, &ty) ; 
text (message2z) ; 


} /*end write dialog*/ 


getstring (string, Lengen, ex, ty) 
chau *seGzing; 
ine lengen; 
Eloat- =x, uty, 
[RKKKKKKKKKKKKK KKK KKK KKK KR KK KKK RK KR KK KK KR KK RK KKK RK 
* Function: get and print a string at spéciftiead locate. 
KAEKKKKAKKKKKKKKK KKK KK KKK KKK KK KKK KKK AKER RK KK RK RK KK RR Re / 
{ 
int textforeground, textbackground; /*dot text colors*/ 
inte index, 
char ch, 
floace., V7) /*dot text coordinates*/ 


index=0; 
KX=*tx; y=*ty; 


text foreground=CYAN; 
textbackground=BLACK; 
settextclr(é&textforeground, &textbackground) ; 
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getchr (&ch); 


while (! (ch==0x0D) ) /xwhile not carriage return*/ 
{ 
if (ch==0x0D) 
{ 
en—" 0. 
string[index]=ch; 
break; 


else if (ch==0x08) 


text foreground=BLACK; textbackground=BLACK; 
settextclr (&text foreground, &textbackground) ; 
movtcurabs (&x, &y); 
text (string); 
--index; 
if (index<0) 
index=0; 
ch=/ 7 : 
string(index]=ch; 
text foreground=CYAN; 
textbackground=BLACK; 
settextclr (&text foreground, &étextbackground) ; 
movtcurabs (&X, &y); 
tent ( String); 


else if ((ch>=’0’) &&(ch<=/' 97) | | 
(ch>='A’) && (ch<='2Z! ) | | 
(ehe=" a’ yee (ch<=' z") || 
(ch="_7)) 
if (index>length-1) 
{ 
index=length; 


string[index]=’\0’; 
break; 


string /[index]=ch; 
movtcurabs (&x, &y) ; 
Gest Strang); 
++index; 

lane, -Cudeac—else*// 


Geecenr ech); 


} /*end while*/ 
/*end getstring*/ 
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rest UNG@ertsereen menu} 
Ine “Menu, 
[RK KKK RK RK KK KKK KKK KAKA KK KA KKK AKA KK KK KKK KKK KKK KKK KR KK KKK RK 


x Function: restore screen area under edit screen. = 
kk RR RR KR RR kk Ok RR RK RK kK KR RK RK Kk kk kk Rk Kk / 


{ 


float ules ui /*popup menu coordinates*/ 
float sxlp sy!l, saz, sy2- /*graphics coordinates*/ 
int mode; /*restore mode*/ 

Ent ©Co lor, /*current drawing Golom. 


color=WHITE; 

setcolor (kcolor); 
$Sx1l=0.5; sSyl=1.0; 
SX2=5.5; sy2=4.5; 


bar(ésxl, &syl,&sx2,4sy2) ; /*draw popup menu*/ 

ulx=0.5; uly=4.5; /*upper left coord of popup*/ 
mode=1; /*set restore to overwrite*/ 

moveto (&ulx, &uly,menu, &mode); /*restore scrn under popup*/ 


} /*end restore under _screen*/ 


get name () 

[RK KKK KKK KKK KKK KKK AKKKAK KKK KKK KKK KKK KKK KKK KK KKK KK KK kk kk 
* Function: gets element name and writes it below icon * 
: image in work screen. i 


KRAKKKKKKKKKKAKKKKEK KKK KEK KK AK KR KR RK KR KK KR RK RR KK kk ek ke kk kk  / 


{ 


static char name([8]; /*8 characters + null*/ 

static char messagel[]="MANDATORY ENTRY: Enter element 
name"; 

Static char message2[]="(7 or less characters) and press 
RETURN 


static char message3[]J= 
"Move cursor and press p,C,a,vV,£,t, Or M)to aadean., 
static char message4[]= 
"element or press e to add edge or <esc> to quit."; 


inti} /*float variable*/ 

int heugelr; /*x~hair cursor color, 

int strlength; /*# of characters in name*/ 
float cx ucy: /*pos of =-hair box Curson® 


strlength=7; 
for(i=0; 1<=(Strlengten-2Z), 2 ur) /*init name to blanks*/ 


LO 


name 2 |)—" 3 


name [strlength-1]=’\0'; 


PMaNeuiIe(6Cx, 6CYV, SNCULCLE }= 


© en 0 445; “Cy—=cy—0...45; J-eue name injbottom of box*/ 
Prgoore ()i; 

write dialog(é&messagel, &message2) ; 

ible porte() ; 

getstring(&name, strlength, &cx, &cy) ; /*get name*/ 
Dagon t ()i; 

write dialog (&message3, &message4) ; 

ieiitilLeoorte (); 


Sevene facil en lode |: enane—Name ; 
ce mrecetve nede} -cnhame—name; 


} /*end get name*/ 


get model name () 
[RKKKKKKKKKK KKK KKK KKK KKK KKK Kh kK RRR KKK KR KKK KKK RK KKK KR KR KK 


Beeeunection: get name of model user will enter. = 
Khe kk kkk kkk kkk kk kK RK KKK RK RK RK RK RK KK RR KR KR KR KR RK RK KR RK RK KR KR RK RR / 


{ 


mnt. 1; /*loop variable*/ 

moe ECurCcLr; Preece curser COlor*/ 
int textforeground, textbackground; P RAGE texe colors*/ 
ant strlength; /xstring length*/ 
moat tx, ty? /*dot text coordinates*/ 

mrugat dex, dty; Je position of Eextecursor in dialog box*/ 


Static char name[1ll]; 
Static char messagel[]="Enter the name of this model"; 
static char message2[J="(10 or less characters): Ms 


strlength=10; 


clear _status_box(); /*clear model type and name*/ 


for (i=0;i<=(strlength-2);i++) /*init model name to blanks*/ 


name [iJ=’ /; 
name [strlength-1]=’\0’; 


Perinierdot test () 7 
text foreground=YELLOW; 


uel 


textbackground=BLACK; 
settextclr (&text foreground, &textbackground) ; 


elear draleoggeon0: 
write dialog (&messagel, &message2) ; 


ingtcur(&dtx, é&dty, &tcurclr); /*get text Curcerspocs as. 
getstring(é&name, strlength, &dtx, &édty); 


text foreground=YELLOW; 

textbackground=BLACK; 

settextclr (&text foreground, &textbackground) ; 
tx=XLLSTATUS+4.7; ty=YLLSTATUS+0.05; 
MmOVECURaADS (AEx, aby), 

text (name) ; 


model name=name; 


deltcur.(); /*turn off text cursore*, 
Clear dialog box(); 


} /*end get model name*/ 


init workspace () 
{ 
int. 25k /*loop variables*/ 


for(i=0; i<=MAXNODES; i=i+t1) 

{ 
element [i] .ename="null"; 
element (i) .etype="null"; 
element [i] .dname="null"; 
element (a) 2date  added= nn 
element [1 ]-lasemmod—-nult 
element [i] .nmods=0; 
element [1] .idx="null"; 
element [i] -1dx stmt=*null™; 
element (i].grange="null"; 
element {i} .grule="null"; 
element (i].comments="null"; 
element(i].rtype="null"; 
element [i] .acc_ meth="null"; 
element (i) .freq=0; 
element [1].rel_ pos=0; 

} /*xend for*/ 


for(i=0; i<=MAXNODES; i=i+1) 
{ 
cell[(i].used=FALSE; 


cell[{i].ename="null"; 


jeirZ 


ee1) [3] .nodex—0. 0; 
cell[i].nodey=0.0; 
ee) [1 )2.0ut=07 
cell (ii in=0; 


for(j=0; j<=MAXEDGES; j=j+1) 
{ 
for (k=0; k<=MAXPOINTS; k=k+41) 
{ 
cell{i].edgex[j] [k]=0.0; 
cell{i].edgey{j] [k]=0.0; 
} /*end for k*/ 


cell{i] .cnode[j]=0; 
cel li aiimecedge {7} —0> 
element [{i].elname[j]="null"; 
element {i].eltype{j]="null"; 
element [{i].e2name[{jJ="null"; 
element [i] .e2type{j)]="null"; 
I / fends ter 3-7 
} /*end for i*/ 


model name="null; 
used_nodes=0; 
aceive  node=i), 
Pee Lepor te():, 
elr(); 

Bugeone (i; 


} /*end init _workspace*/ 


ies 


[RRR RK RR RRR RR RK RR ORK RR KR KR RK RK OK RK KK KKK KK KK KK RK RK KK RK 


* Name: Pune c 
* Purpose: contains functions assigned to = fUmeetone.c, * 
* Author: David D. O’Dell * 
* Date: 29 December 1987 " 


Ka KR KK KR KKK KK RK KKK KIKI KAR KKK KKK KKK KKKKKKKKKKKKRKK KKK KKK KKK KKK KK / 


#include “intuit sh " 
‘Finclude “ex-sEruce. nh” 


int menu[12000]; /*global array to hold screen area 
under popup menus*/ 


f1lmode () 

[RK i IK IK I II II IK ITI IO ICICI KK IOI FIR KK II KK IKI IK IKK IO KO 
* Function: allows user to select between creating a genus * 
x graph, creating a module tree, or editing model* 
* paragraphs. . 


Ke KK KI KK RK IK KI KIO IK OR ROK RK re kk RK RK / 


{ 


Char eehy sen /*keyboard character*/ 


/*submenu title entries*/ 
Static char subtitle |[|] =" Fil MODE". 


static char sublinel[J="1l. Create genus graph ae 
static char subline2[]="2. Create module tree ee 
static char subline3[J="3. Edit model paragraphs Le 
Static char subline4[J=" Enter your choice or... are 


static char subline5[J=" Select a new command button."; 
ime voOn: 


draw submenu (&subtitle, &sublinel, &subline2, 
&sSubline3, &subline4, &sublinesS, &menu) ; 


getchr (&ch) ; 


if (ch==0x00) 

{ 
getchr(&sch); 
on=decode char(sch); 
clear dialog sbox (7; 
restore under menu (&menu) ; 
palene is al ilesgy uy 


else Lf (len<" 1” 11 ten’ 37) 
WriteverErOEtal)r, 
else if (ch==’17) 


restore under menu (<menw),, 
eleéar dialog beg: 


create genus graph(); 


114 


else if (ch==’ 2’) 


restore under menu (&menu); 
elear dialog box); 
create module tree(); 


elses ae teh—=".37) 
Clear eadtalog bon), 
BeStoremUunaer menu amen) > 
edit model paragraphs(); 

} /*end if-else*/ 


on=1; 
return (on) ; 


} /*xend flmode*/ 


f2add() 

[RRR KKKKHKKKKRKEKKKKKKKAKK KKK KK KKK RK KR KKK KARR RRR KR RK KR RK KR RK KR KR RK 
* Function: allows user to add nodes or edges to a genus as 
* graph or module tree interactively in the work ‘ 
“a area. si 


kak KKK KK KK RK RK KR RK RK RK KR RK RR RR RK RK KK RR RR RR KK RK RK RK RR RK Ro  / 


{ 


ehar -chyssch: /*keyboard characters*/ 


/*submenu title entries*/ 
Scactle char Subtitle[J=" F2 ADD "; 


static char sublinel[]J="1. Add a node Se 
static char subline2[]="2. Add an edge 7 
Static char subline3[{]="3. Add a module ee 
Static char subline4[]=" ae 


Stedtere Char sublines! |/=]"Enter selection: .. ; 
IeMte aon > 


draw submenu (ésubtitle, &sublinel, &subline2, 
&subline3, &subline4, &sublineS, &menu) ; 


getchr (&ch); 

if (ch==0x00) 

{ 
getchr (&sch) ; 
en=sdecode char (sch); 


fe “end if 0200*/ 


elear dialog boz() ; /*erase any error messayes* 


1G ES) 


restore under menu (&menu) ; 


L£(ch=='17) 


on=2; 
add _ node(); 


else if (ch—— 2) 


on=2; 
add edge (); 


else i£(ch——' 3") 


on=2; 
add_module(); 
} /*end if-else*/ 


return (on); 


)) 2 tend=t2addar, 


f3delete() 


[RRR RK KR RK KK KR KR KK KK KK KKK KKK KKK KK KEK KK KKKKKKKKKKKKK KKK KKK KKK 


* FUNGCE ION: 


* 


hk kK KK RK OK KO KK kk kk RK Rk OK / 


{ 


enar Cm, 


allows user to delete nodes or edges from a genus * 


graph or module tree. 


Sen 


/*submenu title entries*/ 


static 
Static 
static 
Stacie 
Static 
Static 


Incr.on: 


char 
char 
char 
char 
char 
char 


SUDt1 Cle] )=]="FSeDEGE. S.- 
sublinel{]="1l. Delete a node 
subline2({J="2. Delete an edge 
subline3{])="3. Delete a module 
subline4{]=" 

subline5{])="Enter selection... 


draw submenu (&subtitle, &sublinel, &sublinez, 


getchr (&ch); 


Lf (ch==0x00) 


{ 


&subline3, &subline4, &sublineS, &menu) ; 


Gercariesen) 
on=decede char(sen), 
)} /*end) teeo.- 00.7 


TANG 


/*keyboard characters*/ 


elear dialog box({)-; /*erase any error messages*/ 
restore under menu (&menu); 
me (eh=—" 2") 


on=3; 
Cele ee eioder, 


else if (ch==’2’) 


on=3; 
delete edge(); 


eS Ssomiee (elh——- 3) 


on=3; 
delete medule(); 
} /*end if-else*/ 


EeEGCuUrn (On) >; 


} /*end £3delete*/ 


f4change () 


[RRR EKKKKAKKK KKK KKK KKK KK RRR KKK KKK RE KKA KKK KR RRR KR KKK RK RK KKK KK RK 


* Function: allows user to change a node type or name ina * 
- genus graph or modular structure. 3 
KKK KKK KKK KKK KKK EK RK KKK KEKE KKK KKK KKK KA KK KKK KKK RK KKK EK KK KK KR RK KK / 


{ 


eharech, .sel; /*keyboard characters*/ 


/*submenu title entries*/ 


Static char subtitle[]J="F4 CHANGE"; 

Static char sublinel[J="1. Change element name ue 
Static char subline2(]="2. Change element type ne 
Static char subline3[]=" mys 
static char subline4[]=" tae 
Static char subline5[]="Enter selection... ates 
aes On; 


draw submenu (&subtitle, &sublinel, ésublinez, 
&subline3, &subline4, &subline5S5, &menu) ; 


getchr (&ch) ; 


L£ (ch==0x00) 
{ 
getchr (&sch); 
en-decoue, Chae (seh); 
eee? Tend wt Ox00*/ 


ay eae 


clear matatogunon /*erase any error messages*/ 
restore under menu (émenu) ; 
if (ch=='17) 
{ 
on=4; 
change _name(); 
else if (ch==' 2’) 
on=4; 
change _type(); 
} /*end if-else*/ 


return (on). 


} /*end f4change*/ 


mes), Gla gra 

[wR KR RR RR Rk Ok kK kK kk kk kk kk Rk Kk kk kk kK Rk 
* Function: allows user to locate a node in a genus graph or* 
- modular structure. a 


ik kk kk kk kk kk kk kk kk kk kk kK Kk kk kk kk kK kk kk kk kk  / 


{ 
chare ch sen: /*keyboard characters*/ 
Die On; 


static char messagel[]="FUNCTION NOT IMPLEMENTED. "; 
Static char message2[]="Select any command to continue."; 


write dialog (&messagel, &émessage2) ; 
Getenre (sch); 
if (ch==0x00) 
{ 
getchr (&sch); 
on=decode_ char(sch) ; 
} /xend if 0x00*/ 
elear dialegubo«();, 


return(on); 


} ./*end £5bina*%/7 


is 


fémove () 
eae ene A A ARR eR TR ERR RRR AAA ARAKKARARRAKKKKKRKKKEE KK 


* Function: allows user to re-locate node(s) in a genus graph* 
‘ OE modular Structure. * 
ekki RR RK eK / 


{ 


earyen, Son: /*keyboard characters*/ 

ONE, Oh as 

Static char messagel[]J="FUNCTION NOT IMPLEMENTED. "; 
Static char message2[]J="Select any command to continue."; 


write dialog (&messagel, &message?2) ; 
SecGen ( &cn):; 


if (ch==0x00) 


qetchyr (&sen), 


en-de code (char (Seh) 7 
fee CDG TE O=00*/ 


eleare dialog bex(), 
meetin OT) ; 


} /*end f6move*/ 


f7load() 


[KKK KKK RK RR RK RK RR KR RR RK RK RR RRR KR RK OK RR RR RK RK RK KR RK 


Zeer unction: allows user to load a structured model from disk.* 
Kem KKK KK KKK KKK KKKK KKK KK KK KK KKK KKK K KK KKK KK KKK KKK KKK KKK KK KK Kak / 


{ 
enar ch, sch; /*keyboard characters*/ 


Mite On; 
static char messagel[(])="FUNCTION NOT IMPLEMENTED."; 
Static char message2[{]="Select any command to continue."; 


write dialog (&messagel, &message2) ; 
getchr (&ch) ; 
1f (ch==0x00) 
{ 
gecechz (&SCh) ; 
en—Gecede char(sch); 
jeeey*end if O0x00*/ 
ellear dialog box(); 
metry (On) ; 


} /*end f£7load*/ 


ES 


f8save() 
[®t KK KOR IKK OK OR KR RK Rk KK 


* Function: » allows user to save a structured modeimtc aise 
ek I tO IO OR kok kok RO ROR ROR OK Kk kk RR RR Ke / 
{ 

chat “chy esen: /*keyboard characters*/ 

Ine, On 

static char messagel[J="FUNCTION NOT IMPLEMENTED."; 

static char message2[]="Select any command to continue."; 


write dialog (é&messagel, &message2) ; 
getchr (seh); 
if (ch==0x00) 
{ 
getchr(&sch); 
on=de code schar (sen), 
}). “Vreend 12 00-0077 
eléar dialogibox(); 


return (on): 


} /*end f£8save*/ 


f9dbms () 

[RKKKKKKKKKKKK KKK KKK KA KKK KKK KKK RK KKK RK KKK KKK KKK KK KR KR RK RK KR RK RK 
* Function: allows user to connect to a database managemenc ms. 
eo SVYStem-, 2 


FRA RI IIFIRRR IIIRIIOIOROIOI k OR ko kk kk kk k R / 
( 
static char messagel[]="DBMS function not implemented."; 
static char message2[]="Select any command to continue."; 
char ch, scn; 
Ine on; 


write dialog(&messagel, &message2) ; 


getchr (cen), 
if (ch==0x00) 
{ 


getchr (&sch) ; 
on=decode char(sch),; 
}) /*end if 0x00*/ 
clear dialog _box(); 
return (on); 


} /*end £9dbms*/ 
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ee Oca t ()} 


ee eee eee Ae eee ee RRR ARK EAA ER ERK KEKE RE ERE EEE 


x 


Function: allows user to the HALO graphics environment. is 


MeN Re RRR ReRe RR Ree eR Ree Ree Rel ReReReReR BeBe RRs ReReieRe Re Rek Rel Reet RRR Re Ree ReReieenee | 


} 


ener ch, sch; /*keyboard characters*/ 


/*submenu title entries*/ 

Statves char SUubtatlefj="FLlU0 QUIT "; 

SEeseremwe iat subline liai—"“l ves, LT want to quit. 
Static Char subline2 j=" ; 
Searles onabresublineji@— Enter EF to confirm quitting "; 
Static char subline4[]=" ee Ol oe : 
static char subline5[]="Select a new command button. "; 


int on; /*selected command button*/ 


Gruawssubmenu(&subtitle, &sublinel, &sublinedz, 
&subline3, &subline4, &sublinesd5, &menu) ; 


Getenr (&chn),; 


1f (ch==0x00) 
{ 
TeLenr(4senjy. 
en=decodemehnar (sch); 
fey, Beno t O00 / 


clear dialog box(); /*erase any error messages*/ 
Bestore under menu (émenu) ; 

if (ch=='17) 

{ 


on=11; 
return(on); 


return(on); 


/xend f£10quit*/ 


A faa 


[ & KR RK KR ke ke kk I te kk a KIO IO kk kk ke kk kk 


“> Name: Seuniec . 
* Purpose: contains sub-functions called by primary command * 
: functions constained in Erlewine * 
x” Author: David (Pye O pelt * 
* Date: 7 January 1988 * 
kk kkk kkk kkk kkk kkk kk kkk kh kkk kkk kh kk kk hk kk kkk RR RR KR RK RR RK Kk kk RK RK / 


"inelude “inure. n” 
#include “exstruct.h" 


create genus graph() 
[ek ee kkk ek kkk ke kk ke eke kok ek ek kk 


* Function: set up screen so user can enter a genus graph. * 
ee ke ke te eee ke ee kee eke tee kkk eke ke ek ek tee ke ke eke eke te te he tek te ek ke tek ke ke ek ke / 


{ 


enar ¢en ossen-: 


int texerorveground,= tezebackground, /*dot text collerea 

flede ets. tye /*dot text coordinates*/ 

Static char messagel[(]="WARNING: You will erase the current 
model! "; 


static char message2(]J="Press y to erase or <esc> to 
return. "|; 

static char graphtype[(]="Genus Graph a 

static char message3(]="Model initialized and workspace 
cleared."; 

Static char message4[(]="Select any command to continue."; 


write dialog (&messagel, &émessage2) ; 
define aobete: ()- 


textforeground=YELLOW,; 
textbackground=BLACK; 
settextclr (&text foreground, &textbackground) ; 


Cx=XLLSTATUS+0.9; ty=YLLSTATUS+0. 05; 
movtcurabs (&tx, &ty) ; 
text (graphtype); 


adeltcur(); 


GeccnE(échi:, 
if (ch==0x00) 
getchr (&sch) ; 


if (ch==’y’) 
{ 
PNT, workspace(y, 
get model name(); 
write dialog (&message3, &message4) ; 


v22 


else 


clear dialog _box(); 
return; 
} /*end if else*/ 


/*end create genus graph*/ 


add node () 

{ 
flocde a, Vl see. /*graphic coordinates*/ 
float etx, ty; /*dot text coordinates*/ 
float ela, iy: /*icon area coordinates*/ 
lace baAl >) by lyse 7) by 2; /*cell box coordinates*/ 
float hx, hy; /*x-hair cursor coordinates*/ 
float hheight, hwidth; jo ete Ccursesenetont /width* / 


PiGAGmuer eoge, bottom cdge; 

PCa rete ke cage, 11 ote meadge, 

iemites ie /*loop variable*/ 

int color? eae els COLOr™ / 
int textforeground, textbackground; /*dot text color*/ 
tiewlconecolon, 


ine olor: P-CUELeDiisdrawing Ccolor* / 
char ch, sch; /*keyboard characters*/ 
Moree sso, (PA ceteul || 21S /*position of box cursor*/ 


static char messagel[]= 
DievemeWmsemana PL6SS ©, CG, a, V, £, t, Or m to add an"; 
static char message2{]= 
"element or press e to add an edge or <esc> to return."; 


write dialog (&messagel, &message2) ; 


row[0])='’7'; col[0]=’A’; 

mow | ele? -COl[1)]=" \0’ > 
tx=XLLROW+0.8; ty=YLLROW+0.1; 
movtcurabs(&tx, &ty); 

text (row) ; 

tx=XLLCOL+0.8; ty=YLLCOL+0.1; 
moveecurabs(étx, &ty)-; 

text (col): 


Ect Leport (); /*reset viewport area*/ 
hheight=0.5; hwidth=0.5; 

hcolor=BLACK; 

PatLeneur (&hheight,&éhwidth, &hcolor) ; 

textforeground=WHITE; textbackground=BLACK; 


Sserre-CeClE(erexttoregqround, &te=tbackgr und) ; 


Zs 


hx=WXMIN+0.5; hy=WYMIN+0.5; 
movhcurabs (&hx, &hy); 
delhcur (er 


bxl=hz=005, soy ahve. 
bx2=hx+0.5; by2=hyt0.5; 
EDOX(SDAL, Gby ly abac, eby 2); 


getchr (&eh)> 
if (ch==0x00) 
getchr(4sch)- 


while (! (ch==0x1B) ) /*while not escape key*/ 
{ 
ingheur( ann, shy, since ler); /*get postition of x-hawe 
cursor*/ 
if ( (sch==72) || (sch==75) || (sch==77) | | (sch==80) ) 


{ 
top edge = (WYMAX+2.0)-hheight-0.05; 
bottom_edge = WYMIN+thheight; 
left edge = WXMIN+hwidth; 
right edge = WXMAX-hwidth-0.05; 


Switch (sch) 
{ 


case 72: hy=hy+(2*hheight); /*cursor up 
height x_hair*/ 
it (hy >Cop edgey {/*Aft at cop 

edge*/ 


hy=top_ edge; /*stay there*/ 
row(0]=row([(0]-1; 
if (row[0]<=/1") 

row(O0)]=" 


break; 
case 75: hx=hx-(2*hwidth) ; /*CuESOE, LCE 
width x-hair*/ 
Lf (ha lett vedge) /*if at left 
edge*/ 


hx=left_ edge; /*stay there*/ 
col[(0]=col[0Oj-1; 
if(col[0) <=" A’) 


coLl0)]="A": 
break; 
case 77: ==he+ (2*hwidehy /*CULSOEe stone 
width =-hair*/ 
if (hx>right_edge) fli at rice 
edge*/ 


hx=right edge," / Stay. therems 
coll[0)=collol-e &. 
if(eoL | 0)>= 2 
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Golan i=’ H’ ; 
break; 
case 80: hy=hy-(2*hheight) ; /*cursor down 
height x-hair*/ 
if (hny<bottom_ edge) Fobbg eve jsoietcresy 
edge*/ 
hy=bottom edge; /*stay there*/ 


row(0j=row([0]+1; 
ee (cow [Ole = 7") 
Eowl0)]=’ 7’; 
break; 
default: break; 


} /*endswitch*/ 
} /*end if sch*/ 
lee Ort () 5 


@€o.OE=EB LACK; 

setcolor (&color) ; 
x1l=XLLROW+0.6; yl=YLLROW+0.05; 
xX2=XURROW-0.05; y2=YURROW-0.05; 
bar (&&K1,&yl1, &K2, &y2) ; 
Zi—xXDLCOL+0+ 6; ey l—1 LECOLEO 05; 
ne] URCOL=0. 05; 5 72-1 URCOL-0 05; 
bar (&x1, &yl, &k2, &y2) ; 
color=WHITE; 

setcolor (&color); 
tx=XLLROW+0.8; ty=YLLROW+0.1; 
movtcurabs (&tx, &ty); 

text (row) ; 

tx=XLLCOL+0.8; ty=YLLCOL+0.1; 
movtcurabs(&tx, &ty); 

text (col); 

iJ eeleport (); 


movhcurabs (&hx, &hy) ; 


bxeta=he Oro, byl=hy-0. 5; /*draw cursor box*/ 
bx2Z=nx+0.5; by2ohyt0. 5; 
detheur()-; 


rbox (&bx1, &byl, &bx2, &byZ) ; 


if (ch=='p’ | |ch==’c!’ | |ch==’a’ | |ch==’v’ | |[ch==’t/’ | |ch==’f' ||ch=='m’) 
{ 
Incite chime nymenecolon jy, 7*get ctr coords of 
node* / 


fOr (1— 0; Pa SWseagnodeoc tin tet 1h) 


{ 


Wes. 


} 


if (1>MAXNODES) 


( 


} 


WELECG Cr rer (2m, 
break; 


else if(cell[ij).used != TRUE) 


{ 


} 


active node=1;, 

cell[i].used=TRUE; /*mark cell 
used*/ 

cell(used nodes] .nodex=hx; /*update 
structure*/ 

cellfused nodes] .nodey=hy; 

used) nodes -Usedinoagesi 

break; 

/xeend if else*/ 


} /*end for*/ 


/*end if p etc.*/ 


Switch (ch) 


{ 


Gasenep 


Case 


case 


Foals 


aw eo 


1concolor=GREEN; 

LABAX=0.5;7 1y—hy-G7 2, 

pe 1con(ix, iy, 1concoloerT 

get _name(); 

element (active node] .etype="pe"; 
cellf{active node] .etype= "pe", 
movhcurabs (&hx, &hy) ; 

bxl=hx-0.5; byl=hy-0.5; /*draw cursor 


box*/ 
bx2Z2=shx+0.5; by2=hy+0 207 
delheuri)) 
rbox (&bx1, &byly &bx2, &byz) 
break; 


iconcolor=BROWN; 

ix=hx-0.5; iy=hy-0.2; 

ce icon(ix, 17, 1concelen 
get_name(); 

element [active node] .etype="ce"; 
cell (active node]/-etype="ce"™ 
movhcurabs (&hx, &hy) ; 


bxl=hx-0.5; byl=hy-0.5; /*draw cursor 
bos 

b’2=h2+0.9, by 2—hy Ue 

deDPhcuert) > 

rbox (&bal,76byl, 6b=27 shy, 

break; 

iconcolor=CYAN; 

Lx=hs=-0 2.55 1y=hy oS 


a icon{ix, ) 1y, 1concolon: 


EZ 6 


case 


case 


case 


Case 


US tad 


Me lia 


Tite: 


mm! : 


Get Name (ir, 
elememetacem,e mode] .etype=—"a"; 
colmiacel7e nede)].etype="a"; 
movhcurabs (&hx, &hy) ; 


beh 0s, byl —hy-0.5; /*draw cursor 
box* / 

bae—-ne+ Oso; by2—hyt0.5; 

aelnecur (); 

EbOw(Gbalwawy, &bn2, &by2) ; 

break; 

LeCOnNCOLOLr—BLUEs 

Nao Ue Sl yaly Uae - 

Valcom (la, iy, concolor); 

Ger name () ; 


element [active node] .etype="va"; 
eo ubactinme Node ectype=" va"; 
movhcurabs (&hx, &éhy) ; 


Pel=h-0..5; spy l=hy-0. 5; /*draw cursor 
boxk / 

bx2=hxt+0.5; by2=hy+0.5; 

delhcur (); 

Eben Geel wiv), &bx2, &byZ); 

break; 

iconcolor=YELLOW; 

Poe Oyo, Ly=ny—O. 2; 

Percomalt, ay, 1concolor ) ; 

get name (); 


element [active node] .etype="£"; 
eommpactave node] .etype="f£"; 
movhcurabs (&hx, &hy) ; 


bxl=hx-0.5; byl=hy-0.5; /*draw cursor 
box*/ 

Bac Ono, DyZ nyt. 3; 

aelhicur (); 

EbOxm (Gb soy ile &bxZ  &by 2); 

break; 


iconcolor=RED; 

Pah 0.9, ty—hy=0. 2; 

Eelcon (x, ly, slconcolor) ; 

Tee name) 

element [active node] .etype="t"; 
cel iiaceivernede]-ecype—"C"; 
movhcurabs (&hx, &hy); 


bsxl=hx-0.5; byl=hy-0.5; /*draw cursor 
alomeaa 

Beenie O.o, DY 2Z—Ny a0. oO, 

delhcur() ; 

Meee (6D1 &byl,4&b22, &by2Z); 

break; 

iconcolor=MAGENTA,; 

ieee 1 O07; yo hy TC es 


Moreen (t+, Pye Coneco lor) 7 


ee 


get name (jy 
element [active node] @etyvec= a] 
cell[(active node] .etype="m"; 
movhcurabs (&hx, &hy); 
Bbx1=hx-=025; byl =hy Oar /*draw cursor 
Dox" 

bx2=hzt0.5; by2=hny+0 sor 
deiheumGy, 
rbok (€bxl, &by 1, &€bx2, &by 208 
break; 

default: break; 

} /*endiswicena 


te (eh—— os 
break; 


iconcolor=WHITE; 
setcolor (&iconcolor); 


sch=0x00; 

getchr (&ch) ; 

if (ch==0x00) 
Geccnr (&4sScnie 


} /*end while*/ 


delbox(); /*delete current rubber band 
box*/ 


bugporet) > 
elear dialog bon); 
if (ch==’e’ ) 


add edge (); 


} /*end add_node*/ 


ada_edge() 

{ 
float hheight, hwidth; /*size of x-hair Cursome. 
fleat-x1,. yl ey. /*graphic coordinated, 
float. cx, cys /*x-hair coordinates*/ 
floaters wi: ;/AEe=t (evEsor 
coordinates*/ 
float bal, byl, bx2;, [by2. /*cell box coordinates =. 


float top edge, bottompedae 
float lett edge, crght ledge 


Zee} 


mie@atetic, Ly: /*coordinates of line’s 
fixed end*/ 


comiteaeae /*loop variable*/ 

che hemma besity 7 numbers Oor turns in an 
edge*/ 

init Colon, ) erawing Color *7 

mnt Geolor;  eolarvoe Graphics 
cursor* / 

Hit neolor: Pe Gotornor x<—-hNair Cursor * / 

nites ame: /*toggle to draw/not draw 
line*/ 

ena rech?. sch; /*keyboard characters*/ 

ehar cowl2], col lai [2 PesteLronv Or DOA CUESOL * / 


static char messagel[]= 

"Move cursor to calling node and press return."; 
static char message2[]= 

"Or press n to add node or <esc> to return."; 

static char message3[]= 

PuOvemeit@sar ANG sDreSserE to turn or € to end edge.",; 
static char message4[J="_ "; 


WEeTeematalog (message!) en 2ssagez) ; 
turn=0; 


rew[O)]='7"; col[Oj='’A’; 
Gewlli—" VOR; col[l)j="’\0" ; 
tx=XLLROW+0.8; ty=YLLROW+0.1; 
MOvEcUrabS (&4tx, &ty)i; 

text (row) ; 

tA-AbDECOLDTO.8; tCy=YELCOL+0. 1; 
movtcurabs (&tx, &ty); 

wext (Col) > 


ch=’-’; line=FALSE; J Anweeeormove lane, don’t draw it*/ 
isetleporta) ; 


hheight=0.5; hwidth=0.5; 
hcolor=BLACK; 
inithcur (&éhheight, &hwidth, &hcolor) ; 


Cx=WXMIN+0.5; cCy=WYMIN+0.5; /*start cursor in lower left*/ 
movhcurabs (&cx, &cy); /*corner of drawing area*/ 
delhcur(); 

beel—Cx-075; byl=cy-0.5; 

bez —ext+0.5; byzZ=cy+0.5; 

Boox(&bxl, Gbyl, &bxZ2, &by2) ; 


goechr (&ch) ; 
if (ch==0x00) 


LA'S) 


getchre (sch) 


while (! (ch==0x1B) ) /*while not escape key*/ 
{ 
inghcur (&cx, &ey, &hcolor); /*get positioners. neues 
Gursor =, 


if ((sch==72) || (sch==75) || (sch==77) |] (sch==80) ) 
{ 
top edge = (WYMAX+2.0)-hheight-0.05; 
bottom edge = WYMIN+hheight; 
Il6@ftseage = Wine hws ath 
right edge = WXMAX-hwidth-0.05; 


Switch (sch) 
{ 
case 72: cy=cy+(2*hheight); /*cursor up 
height x hair*/ 


if (cy>top_ edge) /* PE at Gop 
edge*/ 
cy=top edge; /*stay there*/ 


row(0]=row([0]-1; 
if (row(0]<=’1’) 
row(0)='17; 


break; 
case 75: e¢x=cx- (2*hwidth) ; /*cursor left 
width x-hair*/ 
if (cx<left_edge) /*if at left 
edge*/ 


cx=left_ edge; /*stay there*/ 
col (0) =corlal— 2 
if (col(0]<='A’) 

colL[(O]=/A’ ; 


break; 
case 77: ecx=cx+(2*hwidth) ; /*Cursor Sighs 
width x-hair*/ 
if (cx>right_ edge) /*®1if aby cighe 
edge*/ 


cx=right_edge; /*stay there*/ 
col (0j=col(Ol]+2. 
if (col (0)s= 2") 


col [0 |=hH’ ; 
break; 
case 80: cy=cy-(2*hheight) ; /*cursor down 
height x-hair*/ 
if (cy<bottom_ edge) /*if at Serre 
edge*/ 


cy=bottom edge; /*stay there*/ 
row[0]=row[0]+1; 
Lf (rowlOle= 7 2 


row[(0)='77; 


es © 


break; 
default: break; 


} /*endswitch*/ 
|} /*end if sch*/ 


bigpor t.(), 

COLOr=BILACK; 

seccolor (&4Ccolor): 
x1=XLLROW+0.6; yl=YLLROW+0.05; 
x2=XURROW-0.05; y2=YURROW-0.05; 
ban (S217 Syl eal, &y2Z), 

a= Le Ous One, yi=yYELConto.05,; 
mo—XURCCL—0- 05-0) 2—-YURG@m— 0.05; 
bar(&xl1, &yl, &x2, &y2); 
cOlLOr=WHITE; 

setcolor(&color) ; 

x=XLLROW+0.8; ty=YLLROW+0.1; 
movtcurabs(&tx, &ty); 

text (row) ; 

Eo—*LECOlL+ 0.2 wey—1 LLCOL+O. 1; 
movtcurabs(&tx, &ty); 

text (col); 

ia! ee HDS Ves). 


movhcurabs (&Cx, &cy) ; 


bxl=cx-0.5; byl=cy-0.5; /*draw cursor box*/ 
Bez—ext0.5, by2Z—cy +0 . 5; 
ae Pheur() > 


Ebox« (ebxl, byl, 4bxz,,GbyZ) ; 


if (ch==0:0D) 

{ 
bigpore) : /*change viewports and*/ 
color=BLACK; {/*wEite prompts*/ 
setcolor(&color); 
write dialog (&message3, &émessage4) ; 
lmecEleport (i: /*change viewports and*/ 
movhcurabs (&cx, &cy); /*reposition cursor*/ 
delhcur (); 


if (line==FALSE) 
{ 
PNGNCUE(SC., &Cy) ; 
ei tO el seca nodes,; —l=1+1} 
{ 
1£ (1>MAXNODES) 
{ 
ede mere ric )'; 
Beean, 


oa 


else 
1£((cell[i] .nodex==cx) && (cell |i) smnedey—-aa 
{ 
active node—a, 
cell[active node] .out=cell [activegnedce | ele 


if(cell[active node] eur MeaxeneGr., 
{ 
WEICG GCrrEOrqcye, 
break; 
} /*end if cell.out>MAXEDGES*/ 


color=BLACK; 

arrow(color); /*draw arrow head*/ 
inqgcur (41x, 4ly, «<gcolea: 

movabs (&1x, &ly); 

line=TRUE; /*fixed end of line*/ 


cell[active node] .edgex[cell[active node] out) BECTiRI. 


cell[active node] .edgey(cell[active node] 7out] [BECR =i. 
inghcur (&Cx, écyv, &heolors 
bxl=cx-0.5; byl=cy-@8s; 
bxZ=cxt0.5; by2—cv 0. 
rbox (&€bx1, &byl, &bx27eby2y, . 
/*delete box cursor*/ 
movhcurabs (&cCx, &cy) ; 
/*draw h-cursor*/ 
element [active node) 2eype— ca ti 


element [active node] ,elname|[cell |acttvemnmede | omel= 
cell (active node). éename, 


element [active node].eltype[céell[factive node] -out]/= 
celllactive node |Z etype, 
break; 
} /*end if else*/ 
)//*end stor 147 


} /*end if line is false*, 


while (line==TRUE) 
{ 
sch=0x00; 
getenr (een) 
if (ch==0:00) 
getenhzr (ase), 


if ((sch==72) || (sch==75) | | (sch==77) | | (sch==80) ) 


{ 
top edge = (WYMAX+2.0) -hheight=0- 05; 
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Heteon cage s— WrMiN+hheight ; 
left edge = WXMIN+hwidth; 
right edge = WXMAX-hwidth-0.05; 


Switch (sch) 
{ 

Gacsemye- Cy—-CEvV+(2*hheignet) ; 
ne (Cyt ep eage) 
Gy-tep edge, 
break; 

Gace 75: Cx=cx-— (2*hwidth) ; 
inex left edge, 
Cxz-lelE,edge, 
break; 

case 77: cx=cx+(2*hwidth) ; 
if(cx>right edge) 
cx=right edge; 
break; 

case 80: cy=cy-(2*hheight) ; 
if (cy<bottom_ edge) 
Gy —Sbettom edge, 
break; 

default: line=FALSE; 
break; 


} /*endswitch*/ 
} /*end if sch*/ 


if (ch=='t’) 
{ 
iba ie bbe ga-Jk 
Te eurn 3) 
{ 
Wire ter eLror(c), 
break; 
} 
color=BLACK; 
Sempeclor(&color); 


dethieur(): 
lx=cx; ly=cy; /*draw line from fixed 
end*/ 
lnabs (&1x, &ly); /*x-hair cursor 
poste ion / 
line=TRUE; 


Mometactive node|].edgex{cell[active node] .out) (turn)]=1=; 
Pomlactive node] .edgey{cell{active node] .out] [turn]=ly-; 


} /*end if ch==t*/ 


ISIS 


if (ch==’e’) 

{ 
color=BLACK; 
setcolor (fcoler), 


de lhcurigr 

lx=cx; ly=cyt0 goo, /*draw line from 
fixed end*/ 

lnabs (&1x, &ly); /*x>Nate curser 
position*/ 

line=FALSE; 


cellfactive node] .edgex(cell [active node) 2our fi], 
cellfactive node] .edgey[cellfactive node] -ouc)] (END) =i 


for (i=l;i<-used nedes-i—ie, 


{ 


if((cell[i] .nodex==cx) && (cell[i] .nodey==cy) ); 
{ 


céll1([1])-cenode|cell [active nede)2euc | >eceremnca, 
cell[i] -cedge(celll[active node] out] —cellacetvetiea- ote, 
element [i] .e2name[cell[i].in]=cell[i].ename; 
element [i] .e2type[cell[i] .in]=cell[i] .etype; 
} ee for*/ 
} /*eend if ch=e*/ 


movhcurabs (&Cx, &cy) ; 


} /*end while line is true*/ 
\o -/* end Les neturn 


turn=0; /*reset turns in edges to zero*/ 
sch=0x00; 
getchr (&ch); 
if (ch==0x00) 
getchr (&sch) ; 
Lt (ch=— 1) 
break; 
} /*xend while*/ 
DIGport (); 


if (ch=='n’) 
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add node(); 


} /*end add edge*/ 


change_name () 


falioae lv i,. K2 pve. /*xgraphic coordinates*/ 
Pleajtaonl mee l, baz, by2Z; / cell’ box coordinates*/ 
float "Cx,08Cy; /*x~hair cursor coordinates*/ 
float hheight, hwidth; /*x—-hair cursor height/width*/ 


PlOgrEecop edge, betClommedge, 
Eloat letpedge, right edge, 


10) 0 amen ee /*loop variable*/ 
Mat neolor: (hates CUESOE COolOr*/ 
int. colour, ) (euEcentsdrawing Ccolor*/ 
Shatech, sch; /*keyboard characters*/ 


static char messagel([Jj= 
"Move cursor to desired node and press return."; 
static char message2[J=" "; 


write dialog (&messagel, &messagez) ; 
inet LepOrt () ; /*reset viewport area*/ 


hheight=0.5; hwidth=0.5; 
hcolor=BLACK; 
inithcur (&hheight, &hwidth, &hcolor); 


CX=WXMIN+0O.5; Cy=WYMIN+O.5; 
movhcurabs (&cx, &cy) ; 
delhcur(); 


Beck—ecx-O5, byl=cy-0.5; 
bez —cCxr0. 5; by2Z=cyt0.5; 
Boo<( &bxl  &byl, &bx2, &by2) ; 


getchr (&ch); 
if (ch==0x00) 
GeeecnECasch),; 


while (! (ch==0x1B) ) /*while not escape key*/ 
( 
EiahewL (ee, «cy, sNCOlOr); POgetCOSelEron Of =—-hair 
Cunsors 
1f ((sch==72) || (sch==75) | | (sch==77) || (sch==80) ) 


{ 
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top edge = (WYMAX+2.0)-hhéight, 
bottom edge — WiMINtinhergmicy 
lett edge = WwihNthwiacn, 

right edge = WAMAX=hwidtn{ 20> 


Switch (Sch) 
{ 


case 72: cy=cy+ (2*hheight); 97 =euscousur 
heignte-<anad ca, 
if (cy>top_ edge) /*if at cep 
edge*/ 
cy=top edge; /*stay there*/ 
break; 
case 75: ex=cx- (2*hwidth) >; /*cursor left 
width x-hair*/ 
if (cx<left_ edge) /*ift at Wete 
edge*/ 
cx=left_ edge; /*stay there*/ 
break; 
Case 77: Cx=cx? (2*hawidth), /*curson igi 
width x-hair*/ 
if (cx>right_edge) /*if at piohe 
edge* / 
cx=right_edge; /*stay there*/ 
break; 
case 80: cy=cy~-(2*hheight) ; /*cursor down 
height x-hainus) 
if (cy<bottom_edge) /*if at bottom 
edge*/ 


cy=bottom edge; /*stay there*/ 


break; 
deraulte. break; 


} /*endswitch*/ 
} /*end if sch*/ 
movneurabs (&Cx, &Cy) ; 
bei=cx=02 5, -byl=cy-0-5, /*draw cursor box*/ 
bx2=Gx240.5; byZ=cy+0. 5; 
delhcur (); 
rbox (&€bx1l, &byl, &bx2, &by2) ; 
iiteh——0:20D) /*if£ return 
{ 


ingheur (&cx,&cy, &Sneolors. 


for(i-0; i<=used nodes 31 —ie 


{ 
active node=1; 


6 


} /*end for*/ 


COlLOr=WHITE; 
Setcolor(&color) ; 


xl=cx-0.45; yl=cy-0.45; /*delete old name*/ 
x2—CxtO. 497 -¥2—Cy-0.25; 
bar (&K1,&yl, &2,&y2) ; 


get _name(); 


/*eend if ch=return*/ 


sch=0x00; 


Getcher («ch); 
if (ch==0x00) 


getchr (&sch) ; 


bh 7 *end while*/ 


delbox (); 


baraport ()); 


/*end change_name*/ 


ehange type () 


{ 


float 
float 
float 
float 
float 
float 
float 


alee, XZ ees 

ix, 1y; 

Bar, DY1, bez, by Zz, 
CX, CY; 

hheight, hwidth; 
Eopeeceqe, bottom edge; 
lWetE edge, raght edge, 


Hilts NeOPhor - 
iqhsameteyl ey ais 
ia LCONCOLOLr; 
char ch, sch; 


Mceleport ()2 


hheight=0.5; hwidth=0.5; 
hcolor=BLACK; 
inithcur (&hheight, &hwidth, &hcolor) ; 


CX=WKXMIN+0.5; Cy=WYMIN+0.5; 
movhcurabs (&cCx, &cy) ; 
delhcur(); 


/*get new name*/ 


/*delete current rubber band box*/ 


/ = Grape Coordinates*/ 

/*icon area coordinates*/ 
/*cell box coordinates*/ 
/*x-hair cursor coordinates*/ 
/*x-hair cursor height/width*/ 


/*x-hair cursor color*/ 
/*current drawing color*/ 
frearrent  1COn COLOLr* / 
/*keyboard characters*/ 


/*reset viewport area*/ 


a7 


DE1L=CK=-O05 oy —cy = 0, 
bDK2=cx+0.5; by2=cy+0.5; 
ErDOX (&DxA1, aby a bxZ, eby2) 


getchr (&ch); 
if (ch==0x00) 


getchr (&sch); 


while (! (ch==0x1B) ) /*while not escape key*/ 
{ 
inghcurn(G@e~,, 66), ice tem): /*get postition of x=nhase 
cursor*/ 
if ((sch==72) | | (sch==75) || (sch==77) | | (sch==80) ) 


{ 
top edge = (WYMAX+2Z.0) “nneronr 
bottom_edge = WYMIN+hheight; 
left_edge = WXMIN+hwidth; 
right_edge = WXMAX-hwidth-0.05; 


Switch (sch) 
{ 
case 72: cy=cy+(2*hheight); /*cursor up 
height x Hadtus) 


if (cy>top_edge) / *if satator 
edge*/ 
cy=top edge; /*stay theres 
break; 
case 75: cx=cx-(2*hwidth) ; /*cursor left 
width x-hair*/ 
if(cx<left_edge) /*if at Were 
edge*/ 
cx=left_edge; /*stay there*/ 
break; 
case 77: cx=cx+(2*hwidth) ; /* Cursor petane 


width x-hair*/ 
if (cx>right_edge) /*if at Ligne 


edge*/ 
cx=right edge; /*stay there*/ 
break; 
case 80: cy=cy-(2*hheight) ; /*cursor down 


height x-hair*/ 
if (cy<bottom_edge) /*if at bottom 
edqe*/ 
cy=bottom edge; /*Stay eneres, 


break; 
default: break; 


} /*endswitch*/ 
} /*end Tf Ssene7 


lg ies: 


movhcurabs (&Cx, &cy); 


bsxl=cx-0.5; byl=cy-0.5; y“draw Cursor box*/ 
Bx2=C. 40.5; DYZ—Cy 10. 3; 
delneur () ; 


rbox (&bx1, &byl, &bx2, &by2) ; 


if (ch==’'’t’) 
{ 
pecenr (GC); 


PngneUrueen, «Cy ) 5, 


color=WHITE; 

SGbeolor (&COUer) ; 

etl—cx—-0 407 ey =Ccy-0 2; /*draw cursor box*/ 
x2=Cx+0.45; y2=cy+t0.45; 

Dati Gi Gy a2 wy); 


Switch(ch) 
{ 

case ‘p’: iconcolor=GREEN; 
oe 7-025; i V=Ccy-0.2; 
Peetcomiax7 1), 1concoler); 
break; 

case ’c’: iconcolor=BROWN; 
te Cx-O, 5) 1Y—-Cy—0.2; 
Cent conn ix, lye Concolor) > 
break; 

case ’a’: iconcolor=CYAN; 
bu=Cx—UL Oo; 2y=Cy-Ox2; 
aplcon({ix, ly, 1concolor) ; 
break; 

case ‘v’: iconcolor=BLUE; 
eel, LVS Cy 0.2; 
va_icon(ix, iy, iconcolor); 
break; 

case /f’: iconcolor=YELLOW; 
i—Cx veo, 2.V=CyY—0. 2; 
f icon(ix, iy, iconcolor); 
break; 

case ‘/t!’; iconcolor=RED; 
een Ooo Je ty—Cy-U0 42, 
BelCOmlc ly, a 2CONCOLOr) ; 


break; 

case /m’: iconcolor=MAGENTA; 
LaCie ve CV —U ae; 
Mel econ (t2, iy, 1COncolor); 
break; 

default: break; 


fee *end switeh */ 
leet ena 16 Ch=t*/ 
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sch=0x00; 
Jerenr (ach) 
1£ (ch==0x00) 
getchr (&scnh); 
} /*end while*/ 
deine. /*delete current rubber band box*/ 


bigport() 


/*end change_type*/ 
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ernie ee eng AX AR RR AR ARR RK ee XR RRR ERE R RRA KKK AARKKRKK 


* 


~~ Name; SfunZ sie 

* Purpose: contains sub-functions called by primary command * 
i EuMNCtlOns GonNsctainea ta tile fun.c “i 
fe AUchOL: Davyid ). 0’ Dell x 
bate: 7 January 1988 : 
kK KR RK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KK KKK KKK KK RK KK KK / 


ymclude “intuit.h" 
#include "exstruct.h" 


gecace module tree () 


{ 
ehanech,. Sch, 
ie Oc, 
Static char messagel[(J="FUNCTION NOT IMPLEMENTED. "; 
static char message2[(j="Press any key to continue."; 


write dialog(&émessagel, &message2) ; 
AFeCChE( sch) ; 


if (ch==0x00) 
{ 
getchr (&sch); 
on=decode char(sch),; 
} /*end if 0x00*/ 


elear dialog box(); 
ECTLUEN (ON) ; 


} /*end creat module tree*/ 


sore model paragraphs () 
{ 
ehar ch, sch; /*xkeyboard characters*/ 
mt record; 
int segment; 
int address; 
Hat ON; 
iit cO LOX; 
eloat xl,yl,xaey2: 


buf32 (&segment) ; 
address=segment*12; 
imsave (&address) ; /*save screen to memory?*/ 


color=BLACK; 
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setcolor (Scolor) ; 
Clr (ye /*clear entire screen to BLACK*/ 


color=RED; 
setcolor(&color); 

x1=0.1, yl=0.1, x2=WXMAX-0.1; y2=WYMAX-0.1; 
box (&xX1, &y1, &«2, &y2); 
x1=0.1; yl=WYMAX-0.5; 
movabs (&x1, &y1); 
x2Z=WXMAX-0.1; y2=WYMAX-0.5; 
lnabs (&x2, &y2); 

x10. yi =075; 

movabs (&1, &yl); 
K2=WXMAX-0.1; y2=0.5; 

lnabs (&x2, &y2); 


record=active node; 


curlocateti 6). 
printf£("MODEL NAME: %-12s",model name) ; 
cur locate (1,55); 
printf£("RECORD NUMBER: $-4da", record); 
eurlecate (3,2); 
printf("Name: %-12s",element [record] .ename) ; 
curlocate (3, 34); 
printf("Description: +%-30s",element [record] .dname) ; 
curlocate (4,2); 
printf ("Type: %-8s",element (record] .etype) ; 
curlocate (5,2); 
printf ("Date Added: %-/s",element (record) Mdaretadadeaey 
curlocate (5,34); 
printt ("Last Modified: %t-7s",element [record] laccamoas 
curlocate (5,59); 
printf ("Number Mods: %3-5da",element [record] .nmods) ; 
Curdocate (7 2); 
printét ("Index:  +=-4s",element| record)]enaa. 
curlocate (7,34); 
printf("Generic Range: %-20s",element [record] .grange) ; 
curlocate (6: 2) 
printf ("Index Statement: t=s6s",element (record) — vas eseaan 
curlocate (11, 2) > 
printf ("Generic Rule: %-61s",element [record] .grule); 
curlocate (14,2); 
printf("Comments: %-65s",element [record] .comments) ; 
curlocate (17,2) 
printf("Relationship Type: %4-8s",element [record] .rtype); 
Cur locate (17,31); 
PEIMtL (Lage sl.. $-12s called by 

%-12s", element (record] .e2name[1], 

element [record] .elname[1]); 

Gurlocate{ 6-731); 
printf ("Edge 2: s-l2s called by 
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%-12s",element [record] .e2name[Z], 
element {(record].elname[2]); 

eurlocate (197s); 

eabner (badge 3: to l2se called by 
%-12s",element [record] .e2name[3], 
element (record) .elname([3]); 

eur locate (2072); 

Prints (| Relatives OstC ton me moa ,element (record) .rel pos); 

curlocate (20, 31); 

printf ("Edge 4: s-i12s° called by 
%-12s",element [record] .e2name[4], 
element (record].elname(4]); 

Cumdocate (2 ie) > 

PLinte ("Edgemen emlzs Called by 
%-12s",element [record].e2name[5], 
element [record].elname[5]); 


ecurlocate (23,8); 
pain «| weNexci ss (> |er cevLlous ss (e) Edit, [£) find") ; 
Pranee (" [s] Save fr] Return”); 


getchiu (sch); 
1f (ch==0x00) 
{ 
getchr (&sch) ; 
on=decode char (sch); 
} /*end if 0x00*/ 


while (! (ch==0x1B) ) /*while not escape*/ 
{ 
if (ch==!'+/) 
{ 
record=recordtl; 
if (record==MAXNODES) 
record=0; 
curlocate (1,70); 
Prinkt’(" » 3-40", record) ; 
curlocate (3,9); 
printf ("%t-12s", element [record] .ename) ; 
curlocate (3, 48); 
printf ("%-30s",element [record] .dname) ; 
curlocate (4,9); 
Pamaee( s-os.,element {record] .etype) ; 
ecurcleocate (5,15); 
PulM@Eeoe S., element (record). date vadded) ; 
ecunvocate (5, 50);5 
print£ ("%-7s",element [record}.last_ mod); 
ewurmlocate (5,73) >; 
printf ("3-5d", element [record] .nmods) ; 
Guelocate (7710) ; 
Printl@.—4s", element [record] .1dx); 
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else 


CuBlocate (7, 50)- 

printf ("t-20s%, element [record] {grange 

eur locate (6, 20)7, 

printf ("t-538s", element [record] cee 

curlocate (1117): 

printf ("%t-61s",element [record] .grule); 

eublocace (14, 13); 

printf ("%-65s",element [record] .comments) ; 

eCurtocate (lv, 21). 

printf ("3-8s",element [record] .rtype); 

Gur locatetl7 = 40 je 

PEINEE(" t=12S Caled by 
%3-12s",element [record] .e2name[1], 
element [record] .elname[1]); 

Curlocate (16,40); 

PEINCEL(" -4=125 ) called toy. 
%-12s",element [record] .e2name[2], 
element [record] .elname[2]); 

eurlocate (19740); 

print£(" s-12s cai#led by 
3-12s",element [record] .e2name[3], 
element [record] .elname[3]); 

Gurlocate (202) 

printé£ ("s-8d", element [record] —relipcs 

Gur locate(2Z0, 40).- 

Pring (™ ““=12sPecaltedemn,, 
3-12s",element [record] .e2name[4], 
element [record] .elname[4]); 

ecurlocate(21,40); 

PEinttl(™ s-i2syscalleds by, 
%-12s",element [record] .e2name[5], 
element [record] .elname[5]); 


if(ch==’-’) 


record=record-1; 
if (record<0) 

record=MAXNODES-1; 
curlocate (i, 70); 
Printt(™ . c=4d", recornaye 
Curlocate (37.007; 
printf ("t-12s", element [record] .ename) ; 
curlocate (3,46)- 
printf ("%$-30s", element [record| {dname), 
curlocate (4,9); 
printf ("s-8s", element [record] @ery pew 
curlocate(S, to8 
printf ("t-7s",element {[ record) datevadded); 
curlocate (5,50). 
print£("%-7s", element [record|e 2- eae 
Curlocate(S, 72)3 
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else 


else 


print£("%-5d", element [record] .nmods) ; 

eurlocate (7.710) 

printf ("%-4s",element [record] .1dx); 

eurlocate (7700)- 

PRiIncl (1s 20s 7eTememe [Leecora)|.grange) ; 

eCurlocate(3,. 20) ; 

Prine mers oos ,elemens (record) .1dx stmt) ; 

CuBlocate( 1 1A): 

printf ("%-61s",element [record] .grule); 

eurlocate (14713), 

printf ("$-65s", element [record] .comments) ; 

cur locate (li 221); 

printf ("3-8s",element [record] .rtype) ; 

Gurlocace(l7 740); 

Prinei(" t=l2S secoal ted by 
$-12s",element [record] .e2name[1], 
element [record] .elname[1]); 

curlocate (18,40) ; 

PElneE(y o- leceecalleqd Dy 
$-12s",element [record] .e2name([2], 
element [record].elname[2]); 

curlocate (19, 40); 

Print£(" s-l2s called by 
$-12s",element [record] .e2name[3], 
element [record] .elname[3]); 

curlocate (20,21); 

Pees 0G element (mecord) .relupos) ; 

curlocate (20, 40); 

pEimecte(™ t-125 ‘called by 
$-12s",element [record] .e2name[4], 
element [record] .elname[4]); 

curlocate (21,40); 

PLrIntce( Ss-12s. “called by 
%-12s",element [record] .e2name[5], 
element [record] .elname[5]); 


if (ch==’ f’) 


eurlocate (23,18); 

printf("Find not implemented--press any key to 
contrnue...") : 

getchr (&ch) ; 

Gur locate (7 3.8) 

Pein (+) Nest (tee hots fel =Bait  [£] 
fina. je; 

Prinete {[s] Save [r] Retburm ):, 


Pech ——- is. |) 


GUElOCaAre (2 340) 
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else 


printf ("Save not implemented-—-presseany key sce 
continue.” je 

getchr (&ch) ; 

curlocate (23, 6); 

print£("*(+] Next _[-] Previous [eiieaa ec 
frnd”) > 

Prine (* {(s] Save. {r] Return ae 


if (ch==’e’) 


curlocate (2378); 
printf ("<TAB> to move between fields, <ESC> to 
exit editing .]); 


getchr (&ch); 
if (ch=0x00) 

Getche (4Sen 
while (! (ch==0<1B) ) /*while not escape*/ 
{ 

cCurlocatbe (375 3). 
Permeee o's 
getchr (&ch) ; 
if (ch=0x00) 
getchr (&senh); 
if (ch==0x1B) 


break; 
else if (! (sch==0x0F) ) J* if mot tab, 
{ 

curlocate (3.48) ; /*description*/ 


scanf("ss",element [record] .dname) ; 
} /*xend if else*/ 


curlocate (5,1); 
PrInet (ie 
getchr (&ch); 
if (ch=0x00) 
getchr (&sch); 
if (ch==0x1B) 


break; 
else if (! (sch==0x0F) ) {/* if net tab. 
{ 

curlocate (5,15). /xdate added*/ 


scanf ("%ts", element |receud|eaate adder 
} /*end if else*/ 


curlocate (5233). 
Prince oe, 
getchr (éch) ; 
if (ch=0::00) 
getCchr (éseh)- 
1f (ch==0::1B) 
break; 
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else if(! (sch==0x0F) ) Pe LEanote, tab*/ 
{ 
curlocate (5,50); /*last mod*/ 
Seanttecs, ,-Lement (record) .last mod) ; 
} /*end if else*/ 


GuE locate (5, 50); 
Digemes ("> 0); 
Getenetcch)), 
if (ch=0x00) 
getchr (&sch); 
1f (ch==0Ox1B) 


break; 
else if (! (sch==0x0F) ) pif not tab*/ 
{ 

curlocate (5,73); /*num mods* / 


scanf ("%3s",element [record] .nmods); 
} /*end if else*/ 


curlocate (7,1); 
PEelnei >); 
getchr (gen); 
if (ch=0x00) 
getchr (&sch) ; 
1f (ch==0x1B) 


break; 
else if(! (sch==0x0F) ) Pi Not tab*/ 
{ 

curlocate (7,9); /*index* / 


scanf ("$s",element [record] .idx); 
} /*end if else*/ 


Gurlocatet), 33 )- 
PEIMEE (">"); 
getchr (&ch); 
ini en—O200) 
getchr (&sch) ; 
if (ch==0x1B) 


break; 
else if (! (sch==0x0F) ) /*if not tab*/ 
{ 
Gurlocate 7,50); /*xgeneric range*/ 


scanf ("%s",element [record] .grange) ; 
} /*end if else*/ 


curlocate (8,1); 
Of co ot wis dae ee 
getchr (&ch); 
if (ch=0x00) 
Getene(asch)., 
1£ (ch==0:=1B) 
break; 
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else if (! (sch==0:0n)5 /*LE NOt tabay 


{ 
curlocate (8,20); /*index statement* / 


scanf ("%s", element [recor@]Maitcx sumer, 
} /*end if else*/ 


curlocate (11,1); 
Prince (i). 
getchr (&ch); 
VE(Ch=0200)) 
getchr (&scimr 
1f (ch==0x1B) 


break; 
else if(! (sch==0x0F) ) /*1£ not tabs 
{ 
curlocate (11,17); /*generic rule*/ 


scanf("%s",element [record] .grule); 
} /*end if else*/ 


curlocate (14,1); 
PEINtL (2); 
getchr (een), 
PE (ch—0200) 
getchr (&sch) ; 
1f (ch==0x1B) 


break; 
else if (! (sch==0x0F) ) /* if MOE GEabte, 
{ 

ecurlocate (14, 13). /*comments*/ 


scanf("%s",element [record] .comments) ; 
} /*end if else*/ 


/*end while not escape*/ 


curlocate (23,3). 
printf ("{+] Next [=] Previous [e]) Eqizcaat 


find”). 


PERE: {[s] Save [rr] Return"); 


} /*end if ch=e*/ 
else if (ch==’r’) 


break; 
} /*end if else*/ 


Gercecnr (ech )e, 
if (ch==0x00) 


getchr (4sch)7 
on=decode char(sch); 
fjeend if 0-00=, 
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} 


} /*end while not escape*/ 


imrest (&address); /*restore screen from memory*/ 


on=1; 
return (on) ; 


/*end edit model paragraphs*/ 


add module () 


{ 


ehnar ch; 

Static char messagel[]="FUNCTION NOT IMPLEMENTED."; 
static char message2[{]="Press any key to continue."; 
write dialog (é&messagel, émessage2) ; 


getchr (&ch) ; 


clear dialog box()}; 


Belrete node () 


( 


Picaten |, ml, X22; /*graphic coordinates*/ 
Piodtebw., byl, bez, by2; /*cell box coordinates*/ 
ElOde Cxmcy; /*x-hair cursor coordinates*/ 
float hheight, hwidth; /*x-hair cursor height/width*/ 


EYOoat= cep edge, bottom edge; 
PbOdearre Femcage Se ignt edge, 


mat NeOlor; /*x-hair cursor color*/ 
iG COlLOr-: /*current drawing color*/ 
Shnacrmenm sch: /*keyboard characters*/ 


static char messagel[]="Move cursor and press return to 
delete node."; 

static char message2[(J="Or press <esc> to return."; 

write CGialog(&messagel, émessageZ) ; 

Mitt leport (); /*reset viewport area*/ 

hheight=0.5; hwidth=0.5; 

hcolor=BLACK; 

inithcur (éhheight, &hwidth, éhcolor) ; 


CXA=WXMIN+0.5; Cy=WYMIN+0.5; 
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mMovinicunraeds (46x, 6ey)- 
delhevsea: 


Dx1T=Cxs0m oy Dy —c yal 
bxg=cxt0 57 by 2=cyv tuo, 
rboox (&bx1, &byl, &bx2, &by2); 


Geechee (seh); 
if (ch==0x00) 
Getchr (aSchn)7, 


while (! (ch==0x1B) ) /*while not escape key*/ 
{ 
inghneur(écx,écyanecomor): /*get postition of x-hair 
cursor*/ 


1f((sch==72) || (sch==75) || (sch==77) | | (sch==80) ) 
{ 

top edge = (WiMAKS2 .0) ohhetgme, 

bottom edge = WYMIN+hheight; 

left edge = WXMIN+hwidth,; 

right _edge = WXMAX~-hwidth-0.05; 


Switch (sch) 


{ 


case 72: cy=cy+(2*hheight); ~7*curscr sup 
height x_hair*/ 
if (cy>top_ edge) /*if at top 
edge*/ 
cy=top edge; /*stay there*/ 
break; 
case 75: cx=cx-(2*hwidth) ; /*cursor left 
width x-hair*/ 
if (cx<left_ edge) /*it at lett 
edge*/ 
exmleft edge; /*Stay sene res 
break; 
case 77: cx=cx+(2*hwidth) ; /*CUrSOr Seagins 


width x-hair*/ 

if (cx>right_ edge) (AXt ae 
right edge*/ 
cx=right_edge; /*stay there*/ 


break; 
case 80: cy=cy-(2*hheight) ; /*xcursor down 
heiqht. <-haie <7 
if (cy<bottom edge) /*®i twat DoOttom 
edge*/ 


cy=bottom edge; /*stay there*/ 


break; 
default: break; 
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} /*endswitch* / 
ee, “ena ite sen 


movhcurabs (&Cx, &Cy) ; 


bal=cx=0..5) by 1l=cy=0.5; Peacaw cursor box*/ 
Bi 2=C7 0.5) bY 2—Cy +0... 
delhcur (); 


Ebon (6bxl, &by1, &bx2, Gby 2) ; 
hel ch——0-.0)) poe return */ 
{ 
inghcur (&cx, &cy); 
COolor=WHITE; 
SEECOLOLE(GCOlLOL) ; 
mil—Cx—-U~45, yl=cy-0.45; /*Araw Cursor box*/ 
H2=C<+02. 45 2ee.40.45; 
bar (&#1, &y1, &&2, &y2); 
ley endef ch—ay/ 
sch=0x00; 
Geeeni (cn), 


1f (ch==0x00) 
getchr (&sch) ; 


} /*end while*/ 

delbox(); /xdelete current rubber band box*/ 
bpEquort ty): 

erear GQlalog box{); 


/*end delete node*/ 


Bewece edge ({) 


{ 


eiar Chi 

static char messagel[])="FUNCTION NOT IMPLEMENTED. "; 
static char message2[]="Press any key to continue."; 
Net Leuaralog(amessage!, &messagez) > 


gecenie («eh ; 


etear dralog box); 


sisal 


deVe Goa noaure®) 
{ 


char ich: 
static char messagel(]="FUNCTION NOT IMPLEMENTED ."; 
static char message2[(])="Press any key to continue."; 


write dialog (émessagel, «messages = 
getchr (gene, 


clear dialog boxi(); 
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1: INTRODUCTION 

Welcome to INTUITION, a graphics-based program that allows 
you to generate sophisticated model representations directly 
on the computer screen and to transform these representations 
to a database form for subsequent manipulation and solution. 
INTUITION assumes that you are familiar with the concept of 
Structured Modeling and makes no attempt to "teach" this 
Goncept.veselt : Otherwise, the functions of INTUITION are 
sufficiently simple to master with a few minutes of practice. 
The program is totally self-prompting and menu-driven. We 
have tried to make it work in an manner that is both obvious 
and intuitive (hence the name). Normally, what you expect to 
happen will happen; but, if something does go wrong, the 


program will identify the error and tell you what to dome 


fix it. You do not need to read the user’s manual from cover 
to cover in order to use the program. In fact, you wou 
find much of the reading duplicative. The user’s manual is 


intended as a reference manual, so when you look up a 
particular topic, all of the information for using pie 
function is contained within that section. You don’t havemeae 
go on a scavenger hunt to find out what you need to know. 


So, with that in mind, let’ s begin 
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2: SYSTEM REQUIREMENTS 


HARDWARE : 


Ae PCM nomena )\meormcGempatiole with at least one 
disk drive. 


PeemonEtor sapaple Of resolving, at a minimum, 640 x 
ZA00mpiels. 

SOFTWARE: 
Pie eteol Tt One (ya. lL) sorogram disk. 
HALO Graphics Library (specifically, the graphics driver 
for your particular computer). LEMSHObw pre v1Ous ly 
installed, the appropriate driver must be copied to the 
Peer LON program disk: 
ORACLE Relational Database Management System (RDBMS) for 
Poi e/MS—pOs 

MEMORY : 
The program will run minimally in 640K of memory. For 
effective operation, expanded memory of 1M or more is 
recommended. (This does not consider the memory needed 
homerun othe ORACLE RDBMS. Consult your ORACLE User’s 
Guide to determine the RDBMS’s memory requirements.) 


SePERATING SYSTEM: 


IBM PC DOS or MSDOS (Release 2.0 or later). 


SeAPHIC DISPLAY CARDS: 
IBM Color Graphics Adapter (CGA) 
Generic CGA work-alikes 
IBM Enhanced Graphics Adapter (EGA) 
Sigma Designs Color 400 

BeENTING DEVICES: 
Keyboard cursor keys (default) 


Microsoft or compatible mouse (optional) 


Joe) 


3: GETTING 


POWER UP: 


Ensure 
copied 
ensure 


Insert 
int to 


STARTED 


that the appropriate graphics driver has been 
to the INTUITION program disk. (If using a@ momeee 
that the mouse driver has also been copied.) 


the INTUITION program disk in drive A: and type 
invoke the program. An initial menu screen will 


quickly appear. Enter the number of the graphics device 
that matches your equipment configuration and press 


return. 


The main program will then be loaded. 


THE OPENDNG SCREEN. 


So te hy 
Similar 


you will be presented with an opening screen 
fo) Figure wis This screen consists of five 


windows: 


At 


the top of the screen is the status window. 


This shows the type and name of the current 
model. 


The window on the top right contains the 
geometric shapes used to draw the structured 
models. 


The window on the bottom right contains the 
command buttons available in the program. 


The window at the bottom of the screen is the 
dialog area. Prompts and error messages will 
always appear here. 


The white center area is the workspace for 
drawing the structured model. 


THE DRAWING ELEMENTS: 


Each icon on the right side of the screen represents 
different type of element in the structured model. 


PE 
is 


CE 


represents a primitive entity element and 
a green square. 


represents a compound entity element and is a 


brown octagon. 
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TYPE: NAME: 


CWORKAREAD 


COMMAND BUTTONS 


F?VLOAD 
FBESAVE 


a ele | 
CDIALOG AREAD 
FSFIND |. Finquit 


Figure 1: Main Screen 





A represents an attribute element and is a 
evan C2ncie. 


VA represents a variable attribute element and 
is a blue trapezoid. 


Pmeepresents 4a function elémene and is a 
yellow triangle. 


T represents a test element and is a red 
diamond. 


M represents a module and is a magenta 
rectangle. 


(In monochrome mode, all icons are white with a black 
lee@rder, ) 


Ease 


THE COMMAND BUTTONS: 


All program functions are initiated by choeosinguime. 


appropriate command button. The selected Dbuttonmmime 
highltghted: Only one command can be selected at a 
time. Commands are chosen by pressing the appropriate 


function key (e.g. fl function key selects FlMode), by 
moving the highlight with the cursor keys, Gpme 
clicking on the desired command with the left mouse 
BuiGeoms Commands may be selected in any order. (When 
using the cursor keys to move to a specific Command7ayauas 
intervening command buttons are rapidly selected and 
deselected. This can be disconcerting at times. ou 
this reason, using the function keys and/or mouse to 
select commands is recommended.) Some commands produce 
submenus, providing additional choices. Simply fteRiew 
the appropriate prompts when presented with a submenu. 


HOW TOVUSE ew CUR TPOINDTING DEVICE: 


The primary purposes of a pointing device are to move 
the various "cursors" around the screen, to draw on the 
screen, and to select icons and commands from the menus. 


The default pointing device is the keyboard cursor keys. 
To access these keys, the numeric keypad must be in 


"CUTS Omemoages | If your computer prints numeric dilg@aee 
on the screen when you press a cursor key, press the 
"num lock" key once to 2xit "numeric mode." Then 


pressing the cursor keys will move the cursor either 
horizontally or vereicalkiy. 


A Microsoft compatible mouse may also be used as an 
optional pointing device in future versions of the 
PEogram- Ensure that the mouse 1s connected to the 
computer (normally through the serial port) and that the 
appropriate HALO graphics mouse driver is on the program 
disk. To move the cursor, simply move the mouse in the 
direction you want the cursor to move. To select or 
drag an object, click (press) the left mouse button. 
To release or place an object, click the right mouse- 
biter one (If you have a three button mouse, the middle 
button is currently unused 
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4: CREATING A MODEL 


SELECTING THE PROGRAM MODE: 
The program will display the FlMode submenu: 


The program will prompt you to enter a model name. 
The name must be 10 or less characters long. Tete 
you attempt to enter more than 10 characters, only 
the first 10 will be accepted and the program will 


automatically continue from this point. Valid 
Mames can contain any combination of letters, 
digits or underscores. End names of less than 10 


characters by pressing the return key. 


Press 1 to enter a genus graph. The program 
prepares the drawing area and data structures to 
accept a new genus graph. WARNING: SELECTING THIS 
SPIILONPSBotROY> ANY PREVIOUS GENUS GRAPH IN THE 
DRAWING AREA. 


Press 2 to enter a modular tree. The program 
prepares the drawing area and data structures to 
accept a new genus graph. WARNING: SELECTING THIS 
OPTION DESTROYS ANY PREVIOUS MODULAR TREE IN THE 
DRAWING AREA. 


Press 3 to edit module or genus paragraphs. The 
program will display the paragraph editing screen. 
Pole mnce Go mameMrougm chew model paragraphs by 
uSing the + and - keys. You can move from field 
to field in a specific paragraph by uSing the left 
and ragittemcucsor keys: You can edit any field 
Scope o- (ls ia eetiedwiie “Name, genus type, and 
calling sequence. These fields can only be 
modified by changing the appropriate genus graph or 
module tree. The cursor will not enter one of 
these fields on the edit screen. Press the escape 
key to exit editing mode. This will return you to 
the initial display screen. 


ADDING ELEMENTS TO THE MODEL: 


Select the F2Add command button by either pressing the 
f2 function key, clicking on the F2Add command with the 
Heft mouse button, or moving the highlight to F2Add with 
the cursor keys. The program will display the F2Add 
submenu: 


Lye, 


Press 1 to add an element to the genus graph. 


A box cursor will appear in the lower @ieae 
corner of the drawing area. Move the cursor 
with the cursor keysS or mouse. It will move 
within a grid eight blocks wide by seven 
DLOCcKSs, nagh. 


To enter an element, move the box cursor to 
the desired location and press the first 


letter of the element type (1.e., p, c, a, vy, 
f, t or m) or click on the element icon with 
the left mouse button. The appropriate icon 


will be drawn inside the box cursor. 


The program will then prompt you to enter an 
element name. Names must be seven or less 
characters long. If you attempt to enter mie 
than seven characters, only the first seven 
will be accepted and the program will auto- 
matically continue frompehisteeceace Valid 
genus names must be unique and must begin with 
a letter. The remainder of the name may 
contain any combination of letters, digit@siies 
underscores. End names of less than seven 
characters by pressing the return key. 

ELEMENT NAMES ARE MANDATORY ENTRIES. YOU CANNOT 

CONTINUE UNTIL YOU ENTER A VALID ELEMENT NAME. 


You can now move the box cursor to enter 
another element or: 


press e to add an edge; 

press m to add a module; 

press the escape key to return to the 
F2Add submenu. 


To return to adding nodes after adding edges 
and/or modules, simply press Qn. You “an 
repeatedly cycle between adding nodes, edges, 
or modules by pressing the n, e, or m keys. 


Press 2 to add an edge (directed arc) to the genus 
graph or an undirected arc to a modular tree. 


A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks aigh. 
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To draw an edge, move the box cursor to the 
calling element and press the return key. The 
program will automatically draw the "arrow" 
end of a directed arc below the element icon 
in a genus graph. Ore will begin an undi- 
rected arc to the left side of a modular icon 
in a modular tree. 


Ties eOrmmecurscomeawil lil change tO a cross-hair 


cursor. Move the cross-hair cursor (with the 
cursor keys or mouse) to the called element 
and press e for end. The edge will be drawn. 
(Note: When using the cursor keys to draw an 


Cdge7eyOuercan onlyemove the cursor horizon- 
tally or vertically; however, the actual edge 
will be a straight line directly from the 
beginning point to the end point. It will NOT 
be a series of vertical and horizontal lines 
forlovwingsthe cursor path.) 


Sometimes, when an edge is drawn directly 
between two elements, if will cross an inter- 
vening element. To prevent this, an edge can 
COREG IN JUp to three turns. To turn an edge, 
press t for turn. The completed edge segment 
will be drawn. You can then continue the edge 
Quai | Cl beet On, This allows you to draw 
waroundweerners." 


You BGaebmenowesmove the box cursor to enter 
another edge or: 


press n to add a node; 

press m to add a module; 

press the escape key to return to the 
F2Add submenu. 


To return to adding edges after adding nodes 
and/or modules, simply press e. You can 
repeatedly cycle between adding nodes, edges, 
or modules by pressing the n, @e, orm keys. 


Press 3 to add a module to the module tree or 
Ge Miis mcrae. 


A rectangular cursor will appear in the lower 
left corner of the drawing area. Move the 
cursor with the cursor keys or mouse. It 
will move within a grid eight blocks wide by 
seven blocks high. 


Gl 


To enter a module, move the rectangular cursor 
to the desired location and press m or click 
the left mouse button. The module icon will be 
drawn inside the rectangular cursor. 


The program will then prompt you to enter an 
module name. Names must be seven or less 
Characters long. If you attempt to enter more 
than seven characters, only the first seven 
will be accepted and the program will auto- 
matically continue from Ehvs pores Valid 
module names must be unique and must begin 
with a capital M and underline character (M ). 
The remainder of the name may contain any 
combination of letters, digits or underscores 
End names of less than seven characters by 
pressing the return key. MODULE NAMES ARE 
MANDATORY ENTRIES. YOU CANNOT CONTINUE UNTIL 
YOU ENTER A VALID MODULE NAME. 


You can now move the rectangular cursor to 
enter another module or: 


press @e to add an edge; 

press n to add a node (in genus graphs 
only) 

press the escape key to return to the 
F2Add submenu. 


To return to adding modules after adding edges 
and/or nodes, simply presS m. You can repeat- 


edly cycle between adding nodes, edges, or 
modules by pressing the n, @, or m keys. 


DELELING BLEMENTS, PROM) THESVMObDEL: 


Select the F3Del command button by either pressing the 


f3 function key, clicking on thegrcDeleeonmana Ww 1 een 
the left mouse button, or moving the highlight to F3Del 
with the cursor keys. The program will display the 


F3Del submemu: 
Press 1 to delete an element from a genus graph. 


A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks Margit To delete an element, move the 
box cursor to the desired location and press 


IL ey 


rope Come nOcdew. Clim Gaeuck the left mouse 


bier on. The element icon, element name, and 
auc eominMrtomanad Out Of tEhe element will be 
deleted. 


VOUMEGanmmOWw INOWwe tne Dex Cursor to delete 
another element or: 


press e to delete an edge; 

press m to delete a module; 

press the escape key to return to the 
F3Del submenu. 


To return to deleting nodes after deleting 
edges and/or modules, simply press n. You can 
repeatedly cycle between deleting nodes, 
edges, or modules by pressing the n, e, or m 
keys. 


Press 2 to delete an edge (directed arc) from a 
genus graph or an undirected arc from a modular 
miLec. 


A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
bilo ciesm nag i. 


To delete an edge, move the box cursor to the 
calling element and press the return key. The 
PemecUusouuwlll change to a cross-hair cursor. 
Move the cross-hair cursor inside the arrow 
head of the arc to be deleted and press the 
return key. The arc will be deleted. 


You can now move the box cursor to delete 
another edge or: 


press n to delete a node; 

press m to delete a module; 

press the escape key to return to the 
F3Del submenu. 


To return to deleting edges after deleting 
nodes and/or modules, simply press e. You can 
repeatedly cycle between deleting nodes, 
edges, or modules by pressing the n, e, or m 
keys. 
Press 3 to delete a module from a module tree or 
genus graph. 


ING 3 


A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
DlLOGKs suebeiin 


To delete a module, move the box cursor to the 
desired location and press m for module or 
click the left mouse button. The module icon, 
module name, and all arcs into and out of the 
module will be deleted. 


YOu can now move the rectangular cursor to 
delete another element or: 


press e to delete an edge; 

press n to delete a node; 

press the escape key to return to the 
F3Del submenu. 


To return to deleting modules after deleting 
edges and/or nodes, simply press @m. You 
can repeatedly cycle between deleting nodes, 
edges, or modules by pressing the n, e, or m 
keys. 


CHANGE ELEMENT NAMES OR TYPES: 


Select the F4Chg command button by either pressing the 
f4 function key, clicking on the F4Chg command with the 
left mouse button, or moving the highlight to F4Chg with 
the cursor keys. The program will display the F4Chg 
submenu: 


Press 1 to change an element name on the genus 
graph. 


A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks high: 


To change an element name, move the box cursor 
to the desired location and press ¢c for change 


or click the left mouse button. The old name 
will be erased and the program will prompt you 
to enter a new element name. Names must be 
seven or less characters long. If you attempt 


to enter more than seven characters, only the 
first seven will be accepted and the program 
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Wil eautematl Cally ecemeanue: From this point. 
Valid genus names must be unique and must 
begin with a letter. The remainder of the 
name may contain any combination of letters, 
digits or underscores. End names of less than 
seven characters by pressing the return key. 
ELEMENT NAMES ARE MANDATORY ENTRIES. Ol) 
CANNOT CONTINUE UNTIL YOU ENTER A VALID 
ELEMENT NAME. 


You can now move the box cursor to change 
another element name or press the escape key 
fo returm to the F4Chq submenu. 


Press 2 to change an element type on the genus 


qr api. 
A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 


within a grid eight blocks wide by seven 
blocks high: 


To change an element type, move the box cursor 
to the desired location and press the first 
letter of the element type (1.e., p; c, a, v, 
f, or t) or click on the element icon with the 
left mouse button. The old icon will replaced 
with the new icon. 


You can now move the box cursor to change 
another element type or press the escape key 
to return to the F4Chg submenu. 


PeNOING A SPECIFIC ELEMENT: 


Select the F5Find command button by either pressing the 
£5 function key, clicking on the F5Find command with the 
heteE mouse ‘button, Sor moving the highlight to F5Find 
with the cursor keys. 


The program will prompt you to enter the name of the 
element you wish to find followed by the return key. 
You must enter the name exactly as it is listed in the 
database. The program will find this element on the 
genus graph and move the box cursor around it. 


You can now enter another name or press the escape key 
to select another command button. 


165 


MOVING ELEMENTS ORR OUS ERE Eo 


This function is not implemented in the versiones 
INTUITION® Selecting the F6Move command button has 
not effec. 


LOADING A MODDED FROM Pits: 


Select the F7Load command button by either pressing the 
£7 function key, clicking on the F7Load command witha 
left mouse button, or moving the highlight to F7Load 
With the cums@rekce vce 


The program will prompt you to enter the filename. its 
will then load the file. The selected file must be on 
the disk in drive A. WARNING: SELECTING THIS OP 


DESTROYS ANY GRAPHS IN THE CURRENT WORKsE ere 


SAVING A MODEL TO DISK: 


Select the F8Save command button by either pressing the 
£8 function key, clicking on the F8Save command with the 
left mouse button, or moving the highlight’ to F8Save 
wlth the cursor keys-= 


The program will prompt you to enter the filename. Ic 
will then save the file to the disk in drive A. Two 
files are created. One contains the screen image 
information and will have the postfix .img added to the 
name you specify. The other contains the text data 
needed to describe the model and will have the postfix 
.dat added to filsname. After saving a file, you can 
continue to add to the model; however, any additions 
will be lost unless you resave the model. 


CONNECTING TO A DATABASE MANAGEMENT SYSTEM: 


Select the F9dbms command button by either pressing the 
£9 function key, clicking on the F9dbms command with the 
left mouse button, or moving the highlight te F2dsae 
with the cursor keys. 


The program will open a connection to the ORACLE RDBMS. 
Pressing the key a second time will disconnect you from 
the database. ORACLE must be properly installed on the 
system you are using or the command will fail. 


GIG 


GUITTING THE PROGRAM: 


Select the F1l0Quit command button by either pressing the 
HQ eEnine: 1 Onmaeymmetemeinng wom the FIQOQuit command with 
the left mouse button, or moving the highlight to 
ELUOUTE with the cursor keys. 


The program will ask you to confirm that you want to 
exit the program. BeaSosuey. COs cOnrrrm. Press n to 
continue in the program. WARNING: EXITING THE PROGRAM 
Pest rOvomw loa CURRENT MODEL UNLESS IT WAS PREVIOUSLY 
SAVED TO DISK. 
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